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ABSTRACT 


This Ghesis presents an Apple Il Markov chain model 
software package programmed to be flexible, practical, and 
mayer interactive. The program addresses the future de- 
termination of manpower requirements by an application of a 
limited Markov chain model, a discrete time Markov pro- 
cess with a stochastic matrix of transition probabilities. 
The user may manipulate data inputs to vary outcome ef- 
fects. The program was written in Applesoft, an Apple II 
basic language. It has the capability to store, retrieve, 
and modify data for use with the calculation procedures. 
The program can be easily modified or enhanced to allow for 


inclusion or utilization of other models. 
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TRANSMITTAL 


INTRODUCTION 

Mie objective of this thesis iS to provide an inter- 
active learning aid in evaluating policies and their effect 
On manpower requirements. These requirements have been a 
problem in manning the All-Volunteer Force since its in- 
ception. Without the steady flow of personnel into the 
armed forces prevalent with the draft, it has become in- 
creasingly necessary to make an in-depth examination of 
policies relating to manpower requirements. 

Por the manpower analyst, or for that matter anyone 
who utilizes the methodology and problem solving approach 
of the manpower analyst, some form of 2a computational de- 
vice is a necessity. Cost, rigid interface requirements, 
and a number of other factors have in the past frustrated 
and stifled the analyst in focusing the necessary comput- 
ational power on his problen. 

In the early 1970's, programmable hand-held calcu- 
lators were introduced. They gave the analyst a signifi- 
cant amount of computing power packaged in a portable unit. 
The impact these devices made on manpower analyses was 


extremely important in real time studies. However, in 





spite of the tremendous impact of hand-neld calculators, 
mers cOnmsribution is yielding to the greater capability 
found in the microcomputer. 

In view of the prospective proliferation of microcom- 
puters and the significant computing power that they now 
provide, the analyst can ill afford to neglect their capa- 
bilities. Today compatible software to support the capa- 
bilities is seriously lacking in specialized fields such as 
manpower analysis. It is this software application that 
this thesis addresses. 

MICROCOMPUTER SYSTEM 

Software development was done on an Apple II Plus 
microcomputer with a 5 1/4 inch floppy-disk drive as an add 
ome peripheral. The standard Apple computer presents a 
forty column, twenty four line display which is compatible 
With a standard television set or a commercial monitor. 
The output format for tne program is written to be viewed 
in forty columns and to be compatible with any standard 
Apple II Plus operating system with a single disk drive. 
SOFTWARE DEVELOPMENT 

R. F. Ling's article, "General Considerations on the 
Design of an Interactive System for Data Analysis", brought 
Out several considerations which should be observed in the 
development of software for any kind of analysis. Among 


these considerations are: choice of programming language, 





Computational effeciency, portability, information re- 
trieval, and user interface. 

Although several microcomputer languages are avail- 
able with individual features which are attractive, the 
language used in this software development effort was 
Applesoft basic, a "real precision" or "floating point" 
basic. Basic was one of the first high level languages 
introduced to teach programming techniques and style. The 
language exploits the fundamental programming concepts, 
permitting the user to write large, complex computer 
programs. Although a basic language is not structured in 
concept, the program was written in a modular fashion (i. 
e., in logical sub-packages which can be individually 
programmed, debugged, and validated.). The sub-vackages 
are combined into a menu driven overall package. The 
program was written with five modules, each having its own 
Sub-modules. 

In spite of their impressive capabilities, microcom- 
puters cannot compare to larger computers in computational 
Speed and accuracy. Applesoft basic, as implemented on the 
Peeeee, Will only perform computations using nine signi- 
feeant figures. The program written is limited and will 
Smeyenandie inputs, displays, or print outs to six figures; 
moyenumber sreater than 999999 will result in a >>>>>d> 
display. Percentages greater than three figures will 


result in the same >>> display. While Applesoft basic is 





relatively slow as an interpreted language, the program and 
mepeTrocompucer Still provide immediate results, approx- 
imately one second per calculation. 

A portable program can be run on a number of different 
computer systems. While many higher languages provide this 
capability, basic languages are deficient in portability. 
The basic languages for microcomputers are all similar, but 
each has syntax and commands characteristic to itself. 
Therefore, a basic program written for the Apple computer 
meet not run on another computer without modification. 
While basic in not the best language choice for porta-— 
bility, it is both user and programmer friendly. 

Information retrieval is an aspect of a program which 
permits an analyst to use it efficiently. The program was 
designed to provide the user with the ability to store and 
retrieve data files. 

The last and most important consideration is a simple 
user interface. To utilize any program, the user must in- 
teract with the program, make numerical entries, and se- 
imee>s desired calculation routines and options. Input or 
response requirements which are unfamiliar or misunderstood 
by the user can cause program interruptions or require 
reinitialization. This is undesirable. Programs should be 
written with the intent of establishing a dialogue with the 
user. The program should be as trouble free as possible 


for the user, and minimize the user's chances of committing 





a fatal error when responding to program prompts or enter- 
ing data. Procedures to accomplish this are costly in 
terms of computational efficiency and programming steps; 
however, user convenience is worth the cost. The program 
was written with this objective in mind. 
MAN-MOD 

The program, MAN-MOD, is an Apple II Plus adaptation 
of a Markov chain model. It was adapted from a larger com- 
puter manpower planning model called MAN-MOD, for use on 
the Apple computer. A Users' Manual was written to assist 
the user in utilizing the program. The actual program is 
user oriented and menu driven, prompting the user for 
inputs. A minimal knowledge of the microcomputer is 
required. The Users' Manual provides the knowledge needed 
momuse the MAN-MOD program. It provides initialization 
procedures and a step by step program review. There are 
calculation and input examples for the new user to review, 
as well as general program and interface information. The 
Users' Manual is contained within this thesis. The modules 
comprising the MAN-MOD program are listed in Appendices A - 
E. 
PROGRAM DESCRIPTION 

The MAN-MOD program addresses the future determi- 
nation of manpower requirements by utilizing a discrete 


meme Markoy chain with a stochastic matrix of transition 





meooabilities. The user may manipulate data inputs to 
study various outcomes. All inputs are prompted. 

When the program is initialized, the user begins at 
the "outer level". To proceed he must press the return Key 
which will load the main module and present the main menu, 
Display 2 in the User's Manual. From here he selects the 
Option he desires and responds to the screen prompts as 
required. All responses and inputs are intended to be as 
trouble free as possible for the user. The user may return 
to the main menu from the sub-routines by selecting the 
(E), escape, key within a routine, or by selecting the 
return menu choice. The program and Users' Manual provide 
the necessary information to use MAN-MOD. 

CONCLUSIONS 

With the advent of the microcomputer, and its afford- 
able role in special fields such as manpower analysis, the 
analyst will have increasing access to computational power 
mache 1980's. Providing specialized software will conm- 
pliment this power. 

The software package provided here gives the analyst a 
useful means of studying manpower requirements using the 
Apple II Plus microcomputer. The modules contained within 
the MAN-MOD package are designed to be easy for the analyst 
to use and to cushion, as much as possible, potential user 
mistakes. The calculation algorithms used are identical to 


those used in the larger computer MAN-MOD program, but 





expressed in the Apple's basic language. The MAN-MOD 
adaptation has been programmed to be compatible with the 
maeecrocomputer's size and computing precision. 

Being written in a modular design, the MAN-MOD pro- 
gram may easily be enhanced by the addition of new modules, 
or by the modification of existing modules. For example, 
the MAN-MOD program module could be modified to allow 
utilization of the Markov vacancy model. 

This package, and nopefully those to follow, can have 
a Significant impact in manpower analysis. The analyst can 
be allowed to work independently, examining a greater 
variety of situations. Perhaps of equal importance, its 
use in the educational environment can accustom the analyst 
To the capabilities that should be available for his use in 


a working environment. 
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MAN-MOD TRANSITIONAL FLOW MODEL 


Users! Manual 


INTRODUCTION 

MAN-MOD is an Apple II adaptation of Bartholomew and 
Forbes' "BASEQN" - a Markov transition model. The Apple 
Man-Mod transitional flow matrix program is designed to 
permit real time manpower data analyses. The program is 
user interactive, prompting the user for inputs as the 
model develops. The following instructions and illustra- 
tTions will give the user a better understanding of the 
computer-—user interaction and the model's capabilities. A 
Mmrstc explanation of the underlying theory is contained 
Within the program as a menu cnoice. Bartholomew and 
Memves’ Statistical Techniques for Manpower Planning is 
recommended for a more detailed explanation. 
SYSTEM HARDWARE 

The suggested system configuration is: 

meeaeok APPRE Lil PLUS computer with monitor. 

Baek til and controller card. 

Deeerinter and interface card. 
SYSTEM SOFTWARE 

MAN-MOD, written in Applesoft Basic, is modular in 
design. The program consists of three modules, MAN-MOD/ 


HELLO, MAN-MOD/PROGRAM, MAN-MOD/THEORY, and utilizes two 





machine language routines, MAN-MOD/LINKER and MAN-MOD/ FOR- 
MATTER. 

MAN-MOD/HELLO is the initialization program providing 
variable dimensioning, machine language routine loading, 
ea 2 brief terminology review. It chains into the MAN- 
MOD/PROGRAM. 

MAN-MOD/PROGRAM is the main module providing a menu 
meme oranching to desired options. It provides the INPUT, 
RECALL, and SAVE capabilities, along with the data calcul- 
ations and output. It chains to the MAN-MOD/THEORY module. 

The MAN-MOD/THEORY module provides basic explanations 
Ot theory, calculation options, and variable definitions. 
Its also contains a reference and acknowledgment section. 
It chains back to the MAN-MOD/PROGRAM module. 

The two machine language routines connect the indivi- 
dual modules and provide for number formatting. MAN-MOD/ 
LINKER is a public domain routine allowing individual pro- 
gram interconnection or chaining. MAN-MOD/FORMATTER is a 
print using routine allowing real and integer numbers to be 
monmmatted. homicmaemoditiead yersion of PRINT II, a Con-— 
puter Systems Design copyrighted progran. Permission has 
been obtained to utilize the modified routine for MAN-MOD; 
miyeOuner use of the routine is prohibited. Program list- 
ings are contained in the thesis, "An Apple II Implemen- 
tation of the Man-Mod Manpower Planning Model", by James L. 


Downs, March 1982, Naval Postgraduate School, Monterey, Ca. 





STARTING UP 
Starting up requires system initialization and disk 
moovting. Booting is a term for placing the disk in the 
disk drive and turning the computer on. A disk is a mag- 
netic storage device that allows the retention and recall 
of data. 
The following steps are required to initialize the 
MAN-MOD program: 
1. Place the MAN-MOD program disk in disk Drive 1. 
2. Turn the video monitor on. 
Se turn the printer om (an Apple Silentype printer is 
not required to be turned on). 
4. Reach behind the Apple II computer on the left 
Side and turn the computer on. 
Once the preceding initialization steps are complet- 
Same coe following things will occur. 
TERMINOLOGY 
The red light on the disk drive will come on, the disk 
drive will start up, and this acknowledgment will be print- 


ed on the screen: 


MAN-MOD IS 
AN APPLE ADAPTATION OF 
BARTHOLOMEW AND FORBES' 
"BASEQN" — A MARKOV TRANSITION MODEL 





There will be a pause, and the screen will then dis- 
play a review of five basic terms. The list covers terms 
to which the user will frequently respond. The monitor 


screen is shown in Display 1. 


¥ MAN-MOD TRANSITION MATRIX PROGRAM X 


CTERMINGLOGY REVIEWD> 


CA) ACCEPT: ACCEPT SCREEN DISPLAY, PRO- 
CEED TO NEXT ROUTINE 


CE) ESCAPE: ABORT PRESENT ROUTINE, RE- 
TURN TO MENU 


INPUT : CALLS FOR A DATA INPUT, 
ONCE ENTERED PRESS RETURN 


PRESS: SEEECT CHGITEE GF SEREEN OP— 
TIONS, AND PRESS CHOICE 


CR) REENTER: RE-INPUT VALUES DISPLAYED 
ON SCREEN 


PIF IFIP PHA EEEGDOHELOMOEDOREEEEDMANMbMbEODHEBAA 


PRESS RETURN TO CONTINUE 


ODE Se IbyN SEY 1 

feecie BOLtOm of Display 1, the following line is 

Shown: 
PRESS RETURN TO CONTINUE 

Once the terms have been reviewed, the user presses 
the key marked RETURN. The screen will go olank for a 
moment, then this statement will appear: 

<MAN-—MOD PROGRAM BEING LOADED> 

MAIN MENU 

It will take approximately 25 seconds for the MAN-MOD/ 


PROGRAM module to load. Once loaded, the MAIN MENU will be 
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displayed on the screen giving the user several options 
from which to choose. The user will be able to select the 
option desired and press the corresponding number. After 
the option choice is pressed, the program will display the 
option's menu. The MAIN MENU options are shown in Display 
ae 


® MAN-MOD TRANSITION MATRIX PROGRAM x 


<MAN-MOD MENU> 


» MAN-MOD THEORY & DEFINITIONS 
MAN-MOD OQPERATICNAL MODEL 


SAVE DATA FILE TO DISK 


EXIT MAN-MOD PROGRAM 


CME A BETS EL CE PP EF AE OF A OF OP 


PReEoo SECECTION 





CUMS ELAY =2 > 

MAN-MOD THEORY & DEFINITIONS 

Selecting the main menu Option (1), MAN-MOD THEORY & 
DEFINITIONS, will chain the user to the MAN-MOD/THEORY 
module. It will take apvoroximately twenty seconds to load 
the module. Once loaded, a menu will provide the user with 
choices for a review of the basic Markov chain model, an 
explanation or definition of variables found in the MAN- 


MOD program, an overview of options available in verforming 
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the calculations, or major references and acknowledgments. 
The user may choose a menu option by pressing the desired 


number. The theory menu is shown in Display 3. 


¥ MAN-MOD TRANSITION MATRIX PROGRAM X 


<THEORY AND DEFINITIONS> 


€1) MAN-MOD THEORY 

(2) VARIABLE DEFINITIONS 

€3) OPTIONS AVATLABLE 

(4) REFERENCES & ACKNOWLEDGMENTS 


(3) RETURN TO MAIN MENU 


LEFF LEFF ERLE EPL VEFEPVDEEEFEEPEBLBMEDMIMIMMUUWLE GC 


PREso SELECTION 


SDiSP GAY 32 

Although the Theory and Definitions section will give 
a basic usderstanding of MAN-MOD, it is not detailed enough 
to provide in-depth learning. For users not familiar with 
Markov chain models, it is recommended that one of the man- 
power reference books be reviewed. MAN-MOD was programmed 
on the Apple II to be utilized as a basic forecasting tool 
for individuals familiar with manpower requirements. 

To exit the theory module, the user selects Option 
(5). The program will then chain the user to the main 
menu. The main menu is the focal point from which the user 


selects a working option, see Display 2. 
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MAN-MOD OPERATIONAL MODEL 

Selection (2), MAN-MOD OPERATIONAL MODEL, will place 
the user in the working program. A menu, Display 4, will 
be shown on the screen. The user will select a choice and 
proceed as prompted. The menu options will be discussed in 
detail to provide the user with a better understanding of 


the program's capabilities. 


¥ MAN-MOD TRANSITION MATRIX PROGRAM X 


€1) INPUT NE DATA 

(2) RECALL DATA FROM DISK 

(3) CHANGE OR MODIFY PARAMETERS 
€4 LIST INPUTS OR PARAMETERS 


(5S) CALCULATE WITH CURRENT DATA 


ee -“* 


(6) RETURN TO MENU 


Perera ehebeebeerbshée set ad# 44 FHF EFA CLE OTE TIL I ESE EF FES 


PRESS seLeer i On 





<DISPLAY 4> 
INPUT NEW DATA 
mee INPUT NEW DATA, Option (1), allows the user to 
Sreace a new data file. To create a new file, the user 
will begin by assigning a FILE NAME. The FILE NAME cannot 
be over 15 characters in length and must start with a let- 
ter of the alphabet. A FILE NAME that begins with a number 


Will be rejected when the save routine is initiated. A 


2) 





FILE NAME is needed to save the data and recall it at a 
later time. The user will be prompted on each data entry. 
After each entry the input will be displayed for verifica- 
tion by the user. The user will have the choice to (R), 
Teenter the data, either correcting or changing the input; 
to (A), accept the input; or to (E), escape to the MAN-MOD 
OPERATIONAL MODEL menu, Display 4. The input sequence for 
new data is as follows: 

FILE NAME 

NUMBER (K) OF CLASSES OR GRADES 

INITIAL CLASS VECTOR (N) (Stocks) 

FRACTIONAL FLOW MATRIX (P) 

OPTIONS CHOICE (1-5) 

RECRUITMENT VECTOR (Options 1-5) 

RECRUITMENT NUMBER (Options 2-5) 

ADDITIVE NUMBER (Options 2 & 4) 

MULTIPLICATIVE FACTOR (Options 3 & 5) 

TIME (1) PERIODS TO INITIALLY CALCULATE 

PERCENTAGE OPTIONS FOR PRINT OUT 

Once the initial input data has been entered, the 

screen will display “INITIAL INPUTS COMPLETED". The user 
will then be given the option to save or not to save the 
data file entered, see Display 5 next page. It is highly 
recommended, to prevent the loss of data, that the user 
feeeeethne data at this point. If Choice (1), yes, is 


Selected, the screen will state DATA BEING SAVED; the data 


24 





will be saved under the entered FILE NAME. Note, if data 
has been previously saved under this name, it will be 
erased and the new data saved. Once the data is saved, the 
program will return the user to the main menu, Display 2. 
Option (2) will have to be selected to return to the opera- 
tional model menu. If the user selects 2, NO, not electing 
to save the input data, he will automatically be returned 


to the operational model menu, Display 4. 






% MAN-MOD TRANSITION MATRIX PROGRAM xX 







DO YOU WISH TO SAVE DATA FILE 


eres 


€2>) NO 


¢ 
a a ee Ae A a ee me 





4eoH#+H +H HHH PAE AE CE EERE A A det Lk EM de daa AUR at A a oh 


PRESS SELECT ION 







Pe ee 


<DISPLAY 5> 


The INPUT NEW DATA option allows for a systematic in- 
put of data. The input routine sedauence corresponds to the 
Suggested input sequence found in the Bartholomew and 
Mempes’ book. The MAN-MOD EXAMPLE shown in the example 


Section illustrates the data a user would input. 
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RECALL DATA FROM DISK 

The RECALL DATA FROM DISK, Option (2) of the opera- 
ional menu, allows the user to recall a data file previ- 
ously saved under a FILE NAME. The user will be asked to 
input the FILE NAME he desires to recall. The program will 
display the file name on the screen and prompt the user to 
choose either to (A), accept the input FILE NAME and pro- 
ceed; (R), reenter the name, either correcting the previous 
entry or inputting a new FILE NAME; or (E), escape from the 
recall routine to the operational menu. 

If a FILE NAME has been entered and accepted for re- 
call, the program will prompt the user as to which disk 
@Grive the data file is on. The disk drives are normally 
labeled Drive 1 and Drive 2. If the drives are not label- 
peeeecnen the boot drive is Drive 1. The boot drive is the 
drive which starts up first when the computer is turned on. 
The user will select the drive in which the data file disk 
has been placed. The user normally saves nis data files on 
the MAN-MOD program disk and uses only Drive 1. If, while 
entering the recall information, a mistake is made, the 
program will prompt tne user to <REVERIFY> data entered, 
FILE NAME and disk drive. If the user is uncertain of the 
FILE NAME under which he saved his data, he may catalog the 
disk to verify the name. To catalog the MAN-MOD disk, see 
the CATALOG section. 
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Once the FILE NAME is entered and the disk drive has 
been selected, the program will indicate on the screen that 
the data file is being loaded. After the file has been 
loaded, the user will be returned to the operational menu. 
An illustration of data recall is shown in the example 
Section. 

CHANGE OR MODIFY PARAMETERS 

Option (3) of the operational menu, Display 4, is the 
CHANGE OR MODIFY PARAMETERS routine. Gewas ~lmportaniaeian 
that it allows the user the flexibility to modify previous- 
ly entered or recalled data, and to observe outcomes. The 


option is menu driven, Display 6. 
¥ MAN-MOD TRANSITION MATRIX PROGRAM x 


CCHANGE OR MODIFY DATA> 


Se oe 


C1) FILE NAME cy) PERCENT. <7) 
C2). ANiTiee S0ks CS) EXT RANGE +T 
(3) MATRIX ¢(P) (37> (FP) ECEMENT 
(4) RECRUITMENT C19) «(P) ROW 
(3) GFPTIONS CPD “RESET. -oi.Ko 
Co) rime?) Cl2) Renn WEN 


X GOTO THEORY FOR EXPLANATIONS & 


Ob i, hE lh a 


FFFPIFFEFEFLFEFEFEEEbFbhEELOEEEH SIF 4LALAA Cl See ge a AeA 


INPUT SELECTION 


Dis PLAY 6> 
The user will choose the desired parameter he wishes 


to modify, a number selection, and press the return key. 
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The program will display the data that has been previously 
entered and query the user as to his desires. The user may 
(A), accept data as is and be returned to the menu, or he 
may press (R) which allows him to reenter that particular 
data. Once the new data is input, it will be displayed 
again for an (A), accept, or an (R), reenter user input. 
Definitions of the menu variables are given in the Theory 
and Definitions option in the MAN-MOD progran. 

Once an input is changed or modified, it will remain 
changed or modified. The user may elect to save the 
modified data under a new FILE NAME, or the one currently 
being used. If data has been recalled or previously saved 
using this FILE NAME, saving the new data under this name 
Will destroy all data previously saved with this name. 

The change or modify routine is a powerful means of 
exploring or examining different scenarios affecting man- 
power requirements. 

LIST INPUTS OR PARAMETERS 

The LIST INPUTS OR PARAMETERS, Option (4) of the oper- 
ational menu, allows the user to review data in memory, 
either on the screen or by a paper print out. The user may 
mewect this option, as any option, at any time. Due to the 
memecer Of inputs and the limited 40 column, 24 line display 
of the Apple II, the screen review will be shown in pages. 
All matrix inputs and row vectors will be listed in column 


Gomm@at. The paper copy will list all data on one page in 
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normal row format. Examples of data listings are shown in 
the example section. 
CALCULATE WITH CURRENT DATA 

The last operational menu choice is Option (5), CAL- 
CULATE WITH CURRENT DATA. This option will display three 
choices. The choices will permit either step calculation, 
point calculation, or continue calculation - extending the 
range on data and options presently selected in memory. 


The option choices are shown in Display 7. 












¥ MAN-MOD TRANSITION MATRIX PROGRAM *X 


€1) CALCULATE ALL @ PERIODS 
€2) CALCULATE LAST TIME PERIOD 2 
(3) EXTEND CALCULATION RANGE 


RETURN TO MENU 


PRESS SELECTION 


ALA i 


Calculations from a selected menu choice may be either 
displayed on the screen or sent to the printer for a paper 
copy. The user will be prompted after choosing the desired 


calculation as to the desired display. 


eS, 





By choosing calculation option 1 or 2, the MAN-MOD 
program will automatically reset stocks or class sizes to 
the original memory input and commence calculating from 
Meme period (0). Only option 3, extend calculation range, 
Will permit the user to continue from a previously calcu- 
mioed time period done with option 1, 2, or 3. 

An advantage in utilizing the extended range cnoice 
is, the user may calculate manpower requirements under one 
set of parameters to a certain time period, go to the 
CHANGE OR MODIFY menu and change parameters in memory, then 
ceontinue calculations to a new time period with the new 
parameters. This would permit the user to consider future 
changes in recruitment policy, transitioning policy, or any 
policy affecting the systen. 

The last choice on any sub-menu will return the user 
to the next higher menu. Exiting the calculation menu will 
return the user to the operational menu. The last choice 
of the operational menu, Display 4, is to return the user 
to the main menu, which brings the user to the two remain- 
mee, opctions to be discussed, SAVE DATA FILE TO DISK and 
EXIT MAN-MOD PROGRAM. 

SAVE DATA FILE TO DISK 

Bopeon (3) of the main menu, SAVE DATA FILE TO DISK, 
provides the user a chance to save data input in memory be- 
Meeemecxiting the program or continuing on to another op- 


tion. A save option is automatically provided ending the 
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INPUT NEW DATA routine. However, if data has been modified 
or the input data has not been saved and the user wishes to 
save it now, he may do so by selecting Option (3). The op- 
tion will prompt the user as to FILE NAME to be saved and 
disk drive choice. An explanation of disk drives is dis- 
cussed in the RECALL DATA FROM DISK section. Note, using 
previously saved FILE NAME could cause loss of previously 
saved data. 

Once the user has responded to prompts and the data 
file has been saved, the program will return the user to 
the main menu. 

EXIT MAN-MOD PROGRAM 

Option (4), EXIT MAN-MOD PROGRAM, of the main menu will 
terminate the MAN-MOD program. Selecting this option will 
display the exit menu giving the user a last opportunity to 
return to the main menu before terminating. If EXIT PRO- 
GRAM is selected, tne program will be terminated displaying 
an exit statement; all data in memory is lost. 
ERROR RECOVERY 

MAN-MOD was written to be robust and to protect the 
user from errors and program problems. However, Murphy's 
Law will always prevail, and if an error or program problem 
Swienappen, it will. 

Rule 1, always save data first. It is best to do so 


MewesOOnN as possible. If an unrecoverable error occurs, 


5) 





then the data is safe on a storage disk and the program can 
be restarted or reinitialized. 

One of the most common inadvertent errors a user may 
make is to press the RESET key. Once pressed, the RESET 
key will cause a program interruption and place the user in 
Applesoft basic, indicated by a bracket on the screen and a 
flashing cursor. All data in memory will be lost. How- 
ever, the user may reenter the MAN-MOD program by typing 
RUN, see Display 8, and pressing the return key, or by by 


reinitializing the MAN-MOD PROGRAM. 


CATALOG 


OISK VOLUME 254 


XA BB7 MAN-MOD/HELLO 

XB 669 MAN-MOD/FORMATTER 
XB 863 MAN-MOD/LINKER 

XA 188 MAN-MOD/PROGRAM 
XA B67 MAN-MCD/THESRY 

T @682 MAN-MOD EXAMPLE 


7 RUN 





(DESPA Y > 
The user may reinitialize the MAN-MOD program two 
ways; first, by typing PR#6 and pressing the return key, or 
eeond, by turning the computer off and back on. The first 


method is preferred. 


pe 





Poon anieiilerruprlons will occur. The best recon- 
mended restart is to reinitialize the program. Restart- 
ing the program with RUN could possibly work, but unless 
the user has an idea of why the program was interrupted, it 
is best to clear memory and reload by initializing. 

CATALOG 

sooner or later the user will desire to see or verify 
the data file names he has saved to the disk. At present 
the MAN-MOD program does not provide an internal review 
capability. The capability does exist for the user to list 
the files on a standard Apple II Disk Operating System 
(DOS) disk from Applesoft basic. To CATALOG the disk or 
list the programs saved, the user must enter Applesoft 
basic. There are two ways to accomplish this, one is to 
press the RESET Key, the other is to exit the progran. 

Pressing the RESET key will cause a program interrup- 
tion and place the user in Appvlesoft basic. Since pressing 
the reset key inadvertently is not desired, Apple computer 
designers modified later Apple II's to give the owner a 
Capability to disable the normal RESET function. The modi- 
fication provides an internal switcn within the computer, 
Causing the RESET key function to work only in conjunction 
With the CONTROL key. The user must determine in which 
mode the system is configured. If pressing the RESET key 


does not interrupt the program, then try pressing the 
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CONTROL key and the RESET key simultaneously. One of the 
operations will place the user in Applesoft basic. 

The other means of entering Applesoft basic is to use 
the EXIT MAN-MOD PROGRAM main menu option (4). This will 
clear the screen and place the user in Applesoft basic with 
mmoracket and flashing cursor in the upper left corner. 

Once in Applesoft basic, the user can type CATALOG and 
Meess the return key. The disk drive will initialize and 
ali programs saved on the disk in the initializing drive 
will be listed on the screen, see Display 8, preceeding 
page. If the list is longer that the screen listing cap- 
ability, it will pause allowing the user to review the 
first part of the catalog, pressing the return key will 
continue the listing. Once the programs have been listed, 
the bracket and flashing cursor will reappear. After re- 
Viewing the CATALOG, the user may reenter the MAN-MOD pro- 
gram dy reinitializing the program or by typing RUN and 
pressing the return key. To reinitialize the program, the 
user may type PR#6 and press return, or turn the computer 
off and back on. It is recommended that the user reinit- 
lalize the program to reenter. The reinitialization will 
take longer, approximately 30 seconds, but will clear and 
reload memory preventing any inadvertent memory changes 
which might cause program interruptions or erroneous cal- 


culations. The preferred method is typing PR#6. 
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DISK MAINTENANCE 

The 5 1/4 inch storage disk is referred to as a "flop- 
py" disk. MAN-MOD has been programmed and stored on a 
mmonppy disk for the user's convenience. The storage is 
done magnetically, similarly to storing music on a magnetic 
tape. The magnetic floppy disk is durable but not indes- 
tructable. The same care and concern one would give a mus- 
ical tape recording should be given to a floppy storage 
disk. The disks are susceptible to heat, magnetic fields, 
and physical abuse. Any one of the three could cause tctal 
or partial loss of the MAN-MOD programs or saved data 
files. iiwieatae2s 16st OF damage occurs, return the disk 
to the issuer. BACKUP covies of data files may be made by 
using the SAVE DATA TO DISK main menu option and saving the 
mele to a second disk. 
BACKUP 

BACKUP is a reference term, pertaining to the saving 
of a second copy of a program or data file. MAN-MOD has 
miescapability shrough the SAVE DATA TO DISK option to save 
a second copy. To utilize this capability, the user must 
have two disks, MAN-MOD and an initialized floppy disk or a 
second MAN-MOD disk. An initialized second disk may be 
obtained by purchasing a blank disk and asking an Apple 
Owner to initialize it. With a BACKUP copy, if the origi- 
nal MAN-MOD disk is damaged, destroyed, or lost, the user 


Will have backup data files and not all will be lost. 
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MAN-MOD EXAMPLE 

The following example is an illustration of data in- 
put, a listing of that data, and a calculation routine per- 
formed on the data using a pre-selected calculation option, 
Additive (System Size). The example is called "MAN-MOD 
EXAMPLE". The example has been entered and stored on the 
MAN-MOD program disk. The user may recall the data file 
moa experiment with various options, or may reenter the 
data under a new FILS NAME to simulate similar operations. 
MAN-MOD EXAMPLE will give the user an idea of what the 
input data listing will look like and an example of both a 
ee calculation and a point calculation printout. 
Illustrations are found on the following pages. 

In selecting a listing or calculations display, the 
user may choose either a screen display or a paper copy. 
The MAN-MOD program will not at present give both displays 
Simultaneously. The user may utilize the screen display 
for manipulating calculations and once the desired output 
is attained, recalculate the same parameters to a paper 
SOpy. 

The following are illustrations of data input, list- 
mec, and calculations. The input is for tne MAN-MOD 
EXAMPLE. unten enr Llilustragions are desired, the 
Bartholomew and Forbes' book is recommended. MAN-MOD is an 


adaptation of those authors' BASEQN model. 


36 





MAN-—MOD EXAMPLE DATA INPUT 


FILE NAME: MAN-MOD EXAMPLE 
NUMBER (K) CLASSES: 3 
INITIAL STOCK VECTOR: al 
Ci TO 
G25 20 
Cow 10 
MATRIX (P: R1 ee a 


Ci .95 .00 .00 
C2aeo! 304 200 
Coo OO. 23195 


OPTION: (4) ADDITIVE (SYSTEM SIZE) 
RECRUITMENT VECTOR: Ri * 
Cio 
C2326 
Coa 0 
RECRUITMENT NUMBER: NOT REQUIRED 
ADDITIVE NUMBER: 10 


MULTIPLICATIVE FACTOR: Opcicnis 9 &« 5 only 
Mit) PERIODS: 5 
PERCENTAGE OPTION: (2) PRESENT PERIOD 


* INPUT OF ROW VECTORS IS VERTICAL 


LARUL DATA LIST 
ILLUSTRATION 1 


ay 





a os 


MAN-MOD EXAMPLE DATA LISTING 


—eamanmnaman = an a a a a am am an a = ae a ee ae a a a ee 


DATA FILE NAME IS...3 MAN-MOGD EXAMPLE 

NUMBER ©K) CLASSES..: (3) 

Peliigeti? Peri UpS..2..: <2) 

PERCENTAGES OFTION..: GEoWees! 22 Ho A OF TGTAL Size 
DR oie SereeTep ts..¢ Semis <Sis) eh S12) 

Pe TOR IRUDS. ss we et CALCULATES TOTAL NET NUMBER 


TES lekease Ssrsrelt By < 1h) 
Cpe ene Ch VEL OR Sib RECRUITMENT ¢(R) VECTOR 


COL i COL <¢ COL 3 
ein oi: ras <Q 1G 


eC itl ain: .°-00H .260H . 1 eRe 
TRANSITIONAL FLOW MATRIX CF) 


EVEy ! (£0 2 Cals 


ROW ¢ 1) 7008 ~9106 ME SECESES 
ROW ¢ 2) 0684 .7490 8866 
ROW ¢ 3) ~GUG0 - .890a ~7504 


INPUT DATA LISTING 
ILLUSTRATION 2 
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MAN-MOD EXAMPLE, STEP & POINT CALCULATIONS 
DATA FILE NAME...: (MAN-MGD EXAMPLE) 


TRANSITIONAL FLAWS 


TIME CLASS STOCKS (ND (PERCENT) RECRUITMENT 
7) ! 7G < 78) @ 
2 26 « 20) Q 
3 16 ¢ 16) Gg 
TOTAL 106 (188) 
{ { Fav « 70) 10 
2 22 ( 26) 3 
3 11 ¢ 18) { 
TOTAL 118 €118) 1S 
2 ! RR ( 69) 10 
2 25 Cae lp 3 
2 {2 ¢ 16) { 
Tce 128 (128) 15 
3 { Q ¢ 67) 11 
2 C245 3 
3 13 ¢ 1@) 2 
TOTAL 136 (138) 1S 
4 { 9? € 69) oA 
2 38 Cre) 3 
2 14 ¢ 18) 2 
TOTAL 148 (14a) 1S 
5 { 103 ¢ 69%) 11 
2 3 (ea) ac: 
3 15 ¢ 10) 2 
TOTAL 15a (158) 14 
DATA FILE NAME...: (MAN-MOD EXAMPLE) 


TRANSITIONAL FLOWS 


ALE CLASS STOCKS (CHD (PERCENT) RECRUI THENT 
2 | 1G3 € $9) 1a) 
z S2 re, 3 
3 1S € 16) 2 
TOTAL Lae €15@) 16 


— eee eee ee ee ee ee ee ee ee ee ee eee ee ee ee ee es ee ee ee ee ee ee ee es es es es i 


ILLUSTRATION 3 
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PROGRAM ACCURACY 

The MAN-MOD program's accuracy is determined by the 
Mmemitations of Applesoft basic. The format is based on 
"real precision" or "floating point" numbers. MAN-MOD will 
Memeculate stocks for display or printout to 999999, any 
number greater will result in a >>>>>> display. Percent- 
ages greater than 999 will result ina >>> display. Since 
the MAN-MOD program primarily is concerned with stocks, no 
fractions are listed. MAN-MOD uses an integer .5 round off 
meuuine for both class stocks and total listings. Thus, a 


difference may occur. 
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CORY CS i 40 LOADING TIME.......... 20,31 
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FOOT DRIVE...........000- 26 MAN-MOD/THEORY........00- 18 
BOOTING. «0... cc cee cc cence 19 MODMY DATA... ...0000+00% ay 
MOPCULATIONS.........20+- 29 GODWIN 6 ee near ie 
BAPNIGE DATA............-. Da MMH oS DAW. 5 yeas. . + a> - 34 
CONTENTS... ccc ee eee eee 15 NUMERICAL DISPLAY........ 40 
PemmROL KEY........e.008- 33 PARAMEOERG] 55.00.0005 27 
TAGE... cece eee eee 35 Be Ce ess ack c ile bee's 32,34 
DATA INPUT..........e000- 23 PSS Se 20 
DEPINITIONS.......cecee8- 21 PR iO eee 18 
ne 19 POPP ECIOUON. 5.5.2... 40 
MT AYS. 0... cc cece eee 16 PONCE) te oy a 26 
OWNS, J. Le veccecececes 18 Pico Vie Ci rin 3 4 
TE 1 & Qevcevcsccceces 26 Uae os oe 20 
ERROR RECOVERY........... 3 4 ESI Kh’, | rie. 32 
POAPE (E)......cececvees 20 RESED STOCKS.......... 27,30 
EXAMPLES. .....eceeeee sileesie RESPONSE TERMINOLOGY..... 20 
OM ce ee es 34 RETURN (MENU).........00- 30 
EXTEND RANGE....... 27,29,30 BIS RPE Re ss cov saueiae e-ale 26 
UE) NAME. .......e es ecece 23 ROUND) ORE, bn ccy ace sccs cee 40 
FLOATING POINT........... 40 MUM RIN iss Sos ein one shoe 34 
MMMOEPY DISK. .......0e00e. 35 RN os eee 32 
MORBES, A. Fe ..cececeees a SUID YAWN ey ee 23,30 
HARDWARE... cece cece ee eee 17 SO RIPN DDUGE DA Ls 5 40.0.0 004-5 28 
INITIALIZATION........04- 19 SIMU SOHES SE egos ee gee fee 
MPT S ww cee ees PlOney SNR MENG) UP. oo sos ved oes: 19 
Mi@ePING, DATA..........-. 28 SPOCK RESET........... 24,30 
BPOINGS. 0... we ee ee eee 16 DEORE. | | ae eee ees 
LISTINGS, FORMAT......... 28 VARIABLES DEFINED........ 26 
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APPENDIX A 


MAN-MOD/HELLO MODULE 
PROGRAM LISTING 


The MAN-MOD/HELLO module is written in Apple II Apple- 
soft basic. The program was listed using XLISTER, a Beagle 


Brothers Inc. program. 
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MAN-MOD/HELLO (PROGRAM LISTING) 


D$ = CHR$ (4) 
= CHR$ (34) 


: REM CTRI=D & " 


HOME 


S VIAB 9 
meeAB 13 


PRINT "MAN-MOD PROGRAM" 


: VTAB 11 
; HTAB 16 


PRINT "MARCH 1982" 


: VPAB 13 
: HTAB 8 


PRINT "NAVAL POSTGRADUATE SCHOOL" 


: VTAB 15 
meer AB 12 


PRINT "THESIS REQUIREMENT" 


- FOR I = 1 70 2500 
¢ NEXT 


THAT 


: HOME 
eV TAB 1 
wear AB 1 


INVERSE 
PRINT " * MAN-MOD TRANSITION MATRIX PROGRAM * " 


» NORMAL 


[eeaAB 23 


wea LAB | 
merOR I = 1 TO 39 


meer AB 15 


PRINT "MAN-MOD IS" 
PRINT 


: HTAB Q 


PRINT "AN APPLE ADAPTATION OF" 
Ba INT 


: HPAB Q 


PRINT "BARTHOLOMEW AND FORBES'" 


lly 





PRINT 


mwAS 2 


PRINT QS"BASEQN"QS" - A MARKOV TRANSITION MODEL" 


SigieD= 255 


meecmae t = 1 TO 1500 
> NEAT 1 


INVERSE 
PRINT " * MAN-MOD TRANSITION MATRIX PROGRAM * " 


» NORMAL 


VTAB 4 


ee AB tT 


PRINT "<TERMINOLOGY REVIEW>" 


: HEAB 11 


INVERSE 
eee "(A) ACCHEPT:"; 


>: NORMAL 
meu eAB 14 


Peet “ACCEPT SCREEN DISPLAY, PRO-" 


: VPAB 8 
: HTAB 14 


PRINT "CEED TO NEXT ROUTINE" 


VTAB 10 


aeHeAB 1 


INVERSE 
PRINT "(E) ESCAPE:"; 


: NORMAL 
: HTAB 14 


PRINT "ABORT PRESENT ROUTINE, RE-" 


: HTAB 14 


maint “TURN TO MENU" 


WIAB 13 


mel AB 1 


INVERSE 
Ba lLNT "INPUT:': 


>: NORMAL 
mera 14 


fae “CALLS FOR A DATA INPUT," 


45 





NAL 


weatAB 14 


PRINT "ONCE ENTERED PRESS RETURN" 


TAB 16 
HTAB 1 
INVERSE 
Peet “PRESS: "; 


» NORMAL 
: HTAB 14 


PRINT "SELECT CHOICE OF SCREEN OP-" 


: VTAB 17 
: HTAB 14 


BeINT "THONS, AND PRESs CHOICE" 


fap 19 


mac AB | 


INVERSE 
PRINT "(R) REENTER:"; 


» NORMAL 
: HTAB 14 


PRINT "RE-INPUT VALUES DISPLAYED" 


: YTAB 20 
- HTAB 14 


PRINT "ON SCREEN" 


WAR 23 


meee AB i 
weeoR T = 1 TO 359 


PRINT "9"; 


VTAB 24 


: HTAB 7 


Paint “PRESS RETURN TO CONTINUE "; 


: GET G$ 


pam P( 9,9) 


> REM TRANSITION MATRIX FLOW RATES 


Q(9) 
: REM $$ NEW TRANSITION MATRIX 
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; VEAB 11 
> HTAB 5 


PRINT "<MAN-MOD PROGRAM BEING LOADED>" 


CALL 520"MAN-MOD/ PROGRAM" 
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APPENIDX B 


MAN-MOD/THEORY MODULE 


PROGHAM Dios inG 


The MAN-MOD/THEORY module is witten in Apple II Apple- 
soft basic. The program was listed using XLISTER, a Beagle 


Brothers Inc. program. 
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MAN-MOD/THEORY (PROGRAM LISTING) 


1000 D$ = CHRS (4) 
: REM CTRL-D 


eerie "<THEORY AND DEFINITIONS>" 
wmeaHlAB 8 
. 2) ee " 


: HTAB 5 
Ss eRINT * (4 ) MAN-MOD THEORY" 
PRINT 
merO HTAB 5 
: PRINT "(2) VARIABLE DEFINITIONS" 
PRINT 
mete HHTAB 5 
> PRINT "(3) OPTIONS AVAILABLE" 
PRINT 
mere HTAB 5 
: PRINT "(4) REFERENCES & ACKNOWLEDGMENTS" 
PRINT 
Meno HTAB 5 
: PRINT "(5) RETURN TO MAIN MENU" 
PRINT 


Meo, IF G < 1O0ORG> 5 THEN 1018 


meat AB 14 
; PRINT "MAN-MOD THEORY" 
MYTAB 6 
—oTAB 3 
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VTAB 18 


PRINT "A BASIC EXPLANANTION OF A MARKOV CHAIN" 


: VTAB 8 


PRINT "MODEL IS NEEDED TO UNDERSTAND MAN-MOD. A" 


: VTAB 10 


PRINT "MARKOV CHAIN MODEL ASSUMES THAT AN IN-" 


VTAB 12 
PRINT "DIVIDUAL WILL MOVE INDEPENDENTLY FROM" 


> VTAB 14 


PRINT "ONE CLASS TO ANOTHER. INDIVIDUAL MOVES" 


: VTAB 16 


PRINT "ARE ACCOMPLISHED WITH TRANSITION PROBA-" 


PRN? “BILITIES THAT DO NOT VARY OVER TIME. THE" 


: VTAB 20 


PRINT "TRANSITION PROBABILITIES ARE ARRANGED IN" 


: GOSUB 9300 


ie GS = "M" GOTO 1004 


PRINT "AN ARRAY KNOWN AS A TRANSITION MATRIX." 


: VPAB 6 


PRINT "THE ELEMENTS OF THE ARRAY ARE LABELED AS" 


: VTAB 8 


mat “FOLLOWS: " 


VTAB 11 


—aTAB 3 


momo 1) P(1,2) P(1,3),-«-,P(1,K) Ww(i)" 


: VPAB 13 
meatAB 4 


mem PC 251) Pl2,2), cee ccsvces ee ezeek) -« Waee)) 


VTAB 15 


> HTAB 3 


meen 


> VDAB 17 
MeerAB 4 


Em wk " 


wevTAB 19 

eartAB 4 

Meeereeye "P(K,1) PUK, 2), cece cc cnce ,P(K,K) Wk)" 
a = «(1 I 

meeor ft = 170 9 


PebAB (XX) 
HTAB 1 
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INVERSE 
Brera i" 
pea XX+ 1 


>: NEXT 
: NORMAL 
: GOSUB 9300 


IF GS = "M" GOTO 1004 


MOAB 3 


wea | 


CALL - 958 


> VTAB 4 
wear As 5 


PRINT “THE ELEMENT P(I,J) OF THE ARRAY IS THE" 


: VDAB 6 


Peet "PROBABILITY THAT AN INDIVIDUAL IN CLASS" 


: VPAB 8 


PRINT "'I' AT THE BEGINNING OF A TIME INTERVAL" 


VTAB 10 
PRINT “WILL MOVE TO CLASS 'J' AT THE END OF" 


: VPAB 12 


PRINT "THAT TIME PERIOD. THE AMOUNT wW(I) IS" 


: VEAB 14 


Poon “THE PROBABILITY THAT THE INDIVIDUAL IN" 


LAB 16 


Pen (CRASS ‘It, AT THE START OF AN INTERVAL," 


VTAB 18 
PRINT "HAS LEFT THE SYSTEM BY THE END OF THE " 


: VPAB 20 


PRINT “INTERVAL. THE ASSUMPTIONS ARE THAT AN" 


: GOSUB 9300 


ieee = “M" GOTO 1004 


CALL = 958 


= VTAB 4 


PRINT “INDIVIDUAL MUST STAY WHERE HE IS, MOVE" 


m=V¥TAB 6 


PRINT "TO ANOTHER CLASS, OR LEAVE. THE SUM OF" 


me YTAB 8 


PRINT "PROBABILITIES IN THE CLASS ROW, P(I,1)+" 


: VTAB 10 


PRINT "...+ P(I,K) + W(I), MUST EQUAL ONE." 


VTAB i2 


SeatAB 3 


foe "THe MATRIX (P) IS THE MATRIX OF THEt 
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VTAB 20 


VTAB 10 


VTAB 18 


: VTAB 14 


PRINT "P(I,J)'S. THE WASTAGE VECTOR (W) IS THE" 


: VEAB 16 


Prosi "VECTOROW( 1),..,W(K). 22 IS IMPLICIT IN" 


: YTAB 18 


PRINT "IN MARKOV MODELS THAT TIME PERIODS ARE" 


PRINT "DISCRETE AND OF EQUAL DURATION." 


: GOSUB 9300 


IF GS = "M" GOTO 1004 


VTAB 3 


| HEAB 1 


CALL - 958 


: VEAB 4 
aeoaAB 3 


aoe TEE PENAL INPUT IS RECRUITMENT. THE" 


: VEAB 6 


PRINT "RECRUITMENT VECTOR DESCRIBES THE NUMBER" 


: VEAB 8 


pooh OF ENDIVIDUALS THAT WiLL REPLENISH THE" 


PRINT "CLASSES BEACH PERIOD. THE TOTAL RECRUIT-" 


: VPAB 12 


Boe MEN 1S REFERRED TO AS R, AND IS THE SUM" 


: VTAB 14 


PRINT "OF THE ELEMENTS OF THE RECRUITMENT VEC-" 


: VTAB 16 


mont "TOR R(i),..,R(K). THE RECRULIMENT VECTOR" 


PRINT "CAN BE SXPRESSED BY EITHER INTEGER NUM-" 


: VPAB 20 


PRINT "BERS THAT AUGMENT THE CLASSES OR BY PRO-" 


: GOSUB 9300 


IF GS = "M" GOTO 1100 


VTAB 3 


weorAs 1 
mecAbL — 958 
mvrAB 4 


PRINT "PORTIONS, THAT ADD TO ONE, OF A TOTAL" 


: VEAB 6 


ae  RECRULIMENT." 


mY LAB 8 
Pee AB 4 


PRINT "THE MARKOV CHAIN MODEL, MAN-MOD, AL-" 
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2034 
: VPAB 12 


VTAB 10 
PRINT "LOWS THE USER TO ANALYZE INTERCONNECTED" 


PRINT "STOCKS AND FLOWS FROM ASSUMPTIONS ABOUT" 


: VDAB 14 


PRINT “INDIVIDUAL CLASS TRANSITIONS AND TO VARY" 


: VDAB 16 


PRINT "THE PROBABILITIES THAT AFFECT TRANSI-" 


VTAB 18 
PRINT "TIONING. FOR A MORE DETAILED EXPLANATION" 


: VPAB 20 


PRINT "OF MARKOV THEORY, BARTHOLOMEW AND FORBES" 
GOSUB 9300 
fac. = MM" GOTO 1004 


CALL - 958 


: VDAB 4 


PRINT "BOOK, " CHRS (34)"STATISTICAL TECHNIQUES FO 
R MAN-=" 

VTAB 6 

PRINT "POWER PLANNING" CHR$ (34)", IS RECOMMENDED." 


PRINT "VARIABLES DEFINITIONS" 


mec AB 4 


PRINT "{1) FILE NAME"; 


meeLAB 25 


PRINT "(7) PERCENT (4%)" 
VTAB 9 


mar As 4 


Pemye '(2) INITIAL STKS": 


: HTAB 23 


Beer '(8) INC TIME" 


evOCASB 11 
weatAB 4 


Bren? "(3) MATRIX (P)": 


: HTAB 23 


PRONT "(9) (P) BLEMENT" 


op) 





» NEXT 
>: VTAB 24 
: ADAB 11 


VTAB 13 


eee AS 3 


PRINT "(4) RECRUITMENT"; 


: HEAB 23 


PRINT "(10) (P) ROW" 


: VEAB 15 
: HTAB 3 


mewn "(5) OPTIONS"; 


: HTAB 23 


PRINT "(11) RESET STKS" 


: VEAB 17 
: HTAB 3 


Beet "(6) TIME (T)"; 


: HEAB 23 


PRINT "(12) RETURN MENU" 


VTAB 23 


wee TAB 4 
>: FOR I = 1 TO 39 


PRINT as 


Eon “ENPUT SELECTION "; 
INPUT G$ i 


Mice VAL (GS) 


Mees < | OR G > 12 GOTO 3000 


OieG GOTO 5060, 31 20,5180, 3240, 5500, 33560, 5420, 5480, 55 
mo , g000, 5060, i004 


GOSUB 9000 


sev TAB 3 
matAB 16 


PRINT "FILE NAME" 


eeVvIAB 6 
7 HEAB 3 


PRINT "FILE NAME IS A MAXIMUM 15 CHARACTER" 


: VTAB 8 


PRINT "NAME ASSIGNED TO THE DATA INPUT. THE IN-" 


: VEAB 10 
: PRINT "PUT DATA MAY BE SAVED WITH THIS NAME TO" 


VTAB 12 


meeeiNT “A DISK. IF THE DATA INPUT IS CHANGED OR" 
wey AB 14 


PRINT "MODIFIED, THE FILE NAME MAY BE CHANGED" 
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: VTAB 16 


PRINT "TO SAVE THE REVISED DATA WITHOUT ODES-—" 


VAR 1c 

PRINT "TROYING THE PREVIOUSLY SAVED DATA." 
GOSUB 9200 

eeTO 4000 


GOSUB 9000 


: VTAB 3 
>: HTAB 15 


aoe "INITIAL STKS" 


: VEAB 6 
- HDAB 3 


PRINT "THE INITIAL STOCKS REPRESENT THE ORIG-" 


: VDAB 8 


PRINT "INAL GRADE OR CLASS ‘I' SIZES. K IS THE" 


: VPAB 10 


PRINT "NUMBER OF CLASSES. THE INITIAL STOCKS" 


VTAB 12 
PRINT "ARE THOSE WITHIN THE SYSTEM AT TIME PER-" 


: VEPAB 14 


PRINT "IOD ZERO, (0). THE STOCKS ARE ENTERED AS" 


: VEAB 16 


PRINT "A ROW VECTOR (N) WITH COMPONENTS: N(1),." 


VTAB 18 


PRINT "..,N(K). MAN-MOD'S PROGRAM INPUT PROMPT" 


: VTAB 20 


PRINT "FOR STOCK VECTOR (N) IS R1 FOR ROW 1 AND" 
GOSUB 9300 
mead = "M" GOTO 3000 


GOSUB 9000 


mVTAB 4 


Poa C1 FOR COLUMN 1. TO INPUT STOCK N(1)," 


: VEAB 6 


PRaNT “THE USERSWOULD RESPOND TO (R1,C1:?7) BY" 


; VTAB 8 


PRINT "INPUTTING THE N(1) STOCK COMPONENT. THE" 


: VEAB 10 


PRINT “USER WOULD INPUT N(2) IN RESPONSE TO THE" 


weAB 12 


cere" RT, C2:?) PROMPT. CLASS STOCKS ARE INPUT" 


: VPAB 14 


PRINT "UNTIL 'K' STOCKS HAVE BEEN REACHED. XK IS" 


: VEAB 16 


PRINT "THE NUMBER OF CLASSES IN THE SYSTEM." 
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GOSUB 9200 


GOTO 3000 


GOSUB 9200 


: GOTO 3000 


GOSUB 9000 


7 PAB 3 
eoatAB 16 


PRINT "MATRIX (P)" 
VTAB 6 


: HTAB 


2 
PRINT "MATRIX (P) SUMMARIZES THE TRANSITIONAL" 


: VTAB 8 


PRN “Shows OF STOCKS WITHIN THE SYSTEM. THE" 


: VTAB 10 


Pee "HOS ARN LISTED IN A (K X K) MATRIX, kK" 


Ce Se 


VTAB i2 
PRINT "BEING LIMITED TO 9 CLASSES. SEACH CLASS" 


mer tAB 14 


PRINT "VECTOR REPRESENTS FLOW RATES FROM THAT" 


: VEAB 16 


PRINT "CLASS. THE RESPONSE TO THE PROMPT R(I)," 


VTAB 18 


PRINT “C(J) SHOULD BE THE FLOW RATE P(1I,J) FROM" 
VTAB 20 
Poet "CLASS ‘i' PO°CEASS 'J'." 


: GOSUB 9200 


GOTO 3000 


GOSUB 9000 


AB 4 
meutAB 16 


Paneer “RECRULIMENT" 


: VDAB 6 
: HTAB 3 


Been? “RECRUITMENT "R' IS THE NUMBER OF INDI-" 
VTAB 8 
PRINT "VIDUALS ENTERING THE SYSTEM. THE SYSTEM" 


: VEAB 10 


PRINT "IS NORMALLY MAINTAINED AT A STEADY STATE" 


WErAB 12 
PRINT "THROUGH RECRUITMENT. FLUCTUATION IN RE-" 


: VPAB 14 


PRINT "CRUITMENT WILL CAUSE A SYSTEM TO CHANGE" 


: VTAB 16 


PRINT "IN SIZE. MAN-MOD RECRUITMENT INPUTS VARY" 
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VTAB 16 


VTAB 18 
PRINT "WITH THE CALCULATION OPTION CHOICE. IN" 


: VPAB 20 


PRINT "THE FIXED RECRUITMENT VECTOR, THE ACTUAL" 
GOSUB 9300 
IF GS = "M" GOTO 3000 


GOSUB 9000 


; VTAB 4 


PRINT "NUMBER ENTERING EACH CLASS 'I' IS INPUT," 


: VDAB 6 


PRINT "I.E. (70, 20, 10); RECRUITMENT 100. IN" 


: VTAB 8 


Bae) "THE OTHER OPTIONS, 2 = 5, RECRUITMENT IS" 


VTAB 10 
PRINT "A WHOLE NUMBER, I.E. 100, AND IS DISTRI-" 
AD 12 
PRINT "BUTED WITHIN THE SYSTEM BY AN HISTORICAL" 


. VEAB 14 


Beit PROPORTION VECTOR, E.G. (.70, .20, .10)." 


PRINT "THE USER WILL BE PROMPTED BY THE APPRO-" 


: VTAB 18 


PRINT "PRIATE INPUT COMMANDS. THE PROGRAM AL-" 


: VPAB 20 


PRINT "LOWS FOR GROWTH OR DECAY, DEPENDING ON" 
GOSUB 93500 
IF GS = "M" GOTO 3000 


GOSUB 9000 
mera 4 
ec. "THe USiR INPUT. OPTIONS 2 = 5 WILL ASK" 
mevTAB 6 
: PRINT "FOR AN ADDITIVE NUMBER OR A MULTIPLICA—" 
mY CAB 8 
aan "TIVE PACTOR TO ACCOMPLISH THIS. THE USER" 
wOrsB 10 
meee’ "WiLL INPUT THE DESIRED SYSTEM GROWTH OR" 
mev TAB 12 
SeERINT “CONTRACTION." 
GOSUB 9200 
GOTO 3000 
GOSUB 9000 
merc AB 3 
=eorAs 18 
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VTAB 16 


Bont “OPTIONS” 


: VTAB 6 
: HTAB 4 


PRINT "OPTIONS 1 =— 5 ALLOW THE MAN-MOD USER" 


: VTPAB 8 


PRINT "TO MANIPULATE DATA ENTERED. THE EFFECTS" 


VTAB 10 
PRINT "OF DIFFERENT TRANSITIONS AND FLOW RATES" 


: VPAB 12 


PRINT "CAN BE OBSERVED. AN EXPLANATION OF BACH" 


: VTAB 14 


PRINT “OPTION IS OBTAINED BY SELECTING THE MENU" 


meen? "“CHOTCE, OPTIONS AVAILABLE." 
GOSUB 9200 


: GOTO 3000 


GOSUB 9000 


PLA B 3 
Seer AB 17 


Peet "TIME (T)* 


: VEAB 6 
: HTAB 4 


PRINT "TIME (T) IS A USER INPUT TO THE MAN-" 


mr lAB 8 


PRINT "MOD PROGRAM. IT DETERMINES THE NUMBER OF" 


: VPAB 10 


PRINT "PERIODS FOR WHICH CALCULATIONS ARE TO BE" 


eA 12 
PRINT “PERFORMED. CALCULATIONS MAY BE DONE RE-" 


: VPAB 14 


PRINT "PEATEDLY, AND CHANGES OR MODIFICATIONS" 


: VPAB 16 


PRINT "TO PARAMETERS CAN BE IMPLEMENTED THROUGH" 


VTAB 18 
PRINT "THE MAIN MENU. THE USER MAY INCREASE THE" 


: VPAB 20 


PRINT "NUMBER OF PERIODS EITHER BY USING 'TIME" 
GOSUB 9300 
Maas = "M" GOTO 3000 


GOSUB 9000 


mevrTAB 4 


PRINT "(T)' OR THE 'EXT RANGE +T' CHOICE ON THE" 


: VTAB 6 


PRINT "THE CHANGE OR MODIFY MENU. TIME PERIOD" 
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VTAB 10 


VTAB 10 


7 VEAB S 


PRINT "ZERO (0) IS THE INITIAL PERIOD; PERIOD" 


PRINT "ONE (1) IS ONE TIME PERIOD LATER." 
GOSUB 9200 


: GOTO 3000 


GOSUB 9000 


we cAB 3 
s HTAB 16 


PRINT "PERCENT (%)" 


: VTAB 6 
: HTAB 3 


PRINT "PERCENT (%) IS AN OPTION SELECTION DE-" 
VTAB 8 
PRINT "TERMINED BY THE MAN-MOD USER. IT AFFECTS" 


Pel “ONLY THE STOCKS PRINT OUT FORMAT. THERE" 


: VEAB 12 


PRINT "ARE THREE CHOICES FROM WHICH TO SELECT." 


: VTAB 14 


PRINT "CHOICE 1 SHOWS NO PERCENTAGES, JUST THE" 


VTAB 16 
PRINT "ACTUAL STOCKS. CHOICE 2 GIVES INDIVIDUAL" 


: VPAB 18 


PRINT "CLASS 'I' STOCK PERCENTAGES BASED ON THE" 


: VTAB 20 


foe “TOTAL FOR THAT PERIOD, ALONG WITH THE" 
GOSUB 9300 
[F GS = "M" GOTO 3000 


GOSUB 9000 


mevrAB 4 


PRINT "THE STOCKS. CHOICE 3 WILL SHOW THE CUR-" 
VTAB 6 
PRINT "RENT STOCKS AS PERCENTAGES OF THE ORIG-" 


: VPAB 8 


PRINT "INAL TIME PERIOD STOCKS. THE PERCENT OP-" 


WOAB 10 
PRINT "TION MAY BE CHANGED AT ANY TIME THROUGH" 


mevLTAB 12 


PRINT "THE CHANGE OR MODIFY MAIN MENU." 


: GOSUB 9200 
: GOTO 3000 


GOSUB 9000 
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3 VIS) 
eae | > 


Pa “EXT RANGE +T" 


: VTAB 6 
OAS 4 


PRINT "BXT RANGE +T ALLOWS THE MAN-MOD USER" 


: VTAB 8 


PRINT "TO INCREASE TIME (1). EXTEND RANGE +7 IS" 


: VPAB 10 


PRINT "THE END PERIOD FOR CALCULATIONS. THE EX-" 


VTAB 12 
PRINT "TENDED RANGE WILL NOT BE ADDED TO TIME," 


: VEAB 14 


PRINT "IT WILL REPLACE THE TIME (fT). IT IS USED" 


: VTAB 16 


PRINT "IN CONJUNCTION WITH THE CONTINUE RANGE" 


fora 1S 


PRINT “OPTION OF THE MAIN PROGRAM'S CALCULATION" 


: VEAB 20 


Pent "ROUTINE." 
GOSUB 9200 


: GOTO 3000 


2 ee ee GS SE Se Cae Oe Se I OS SS OS aS Ca ee ess as se, Se 


GOSUB 9000 
VTAB 35 


: HTAB 16 


PRINT "(P) ELEMENT" 


> VTAB 6 
> HTAB 3 


PRINT "THE (P) ELEMENT VARIABLE CHOICE ALLOWS" 
VTAB 8 
PRINT "THE MAN-MOD USER TO CHANGE OR CORRECT" 


: VPAB 10 


PRINT "PARTICULAR ELEMENTS OF THE MATRIX (P)." 


VTAB 12 


PRINT "THE USER CAN CHANGE AN ELEMENT THROUGH" 
VTAB 14 
PRINT "THE 'CHANGE OR MODIFY' MENU OPTION. THE" 


: VEAB 16 


PRINT “OPTION CAN BE USED TO MANIPULATE STOCKS" 


VTAB 18 


PRINT "AND TRANSITIONAL FLOWS." 
GOSUB 9200 


; GOTO 3000 


GOSUB 9000 
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WAS 3 


aoe | ( 


Pre °(P) ROW 


: VDAB 6 
Wenerab 3 


PRINT "THE (P) ROW OPTION IS SIMILAR TO THE" 


: VTAB 8 


PRINT "(P) ELEMENT OPTION. THE ONLY DIFFERENCE" 


Wena 10 
PRINT "IS THAT THIS SELECTION WILL CHANGE OR" 


: VPAB 12 


PRINT "MODIFY A WHOLE ROW OF THE MATRIX (P)." 
GOSUB 9200 


: GOTO 3000 


GOSUB 9000 
VTAB 3 


: HTAB 16 


Poet “RESET STKS" 


: VEAB 6 
Weert AB 35 


PRINT "THE RESET STKS OPTION ALLOWS THE USER" 


eon & 
PRINT "TO RESET THE CALCULATED STOCKS TO THE" 


: VEAB 10 


PRINT “INITIAL INPUT. BY SELECTING CALCULATION" 


: VPAB 12 


meen “OPTETONS | OR 2, THE STOCKS WILL BE RESET" 


VTAB 14 
Set “AUTOMATICALLY TO ORIGINAL DATA INPUTS." 


: VEAB 16 


PRINT "MAN-MOD RESET OPTION IS LOCATED IN THE" 


: YTAB 18 


PRINT "'CHANGE OR MODIFY' MAIN MENU." 
GOSUB 9200 


meGolO 5000 


meSLAB 13 


PRINT "“OPTIONS' REVIEW" 


-—erAs 4 


PRINT "(1) FIXED RECRUITMENT VECTOR" 


> VTAB 9 
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ea 5 


poy "(2) ADDETIVE (RECRUIT SIZE)" 


: VEAB 11 
> HTAB 3 


PRINT "(3) MULTIPLICATIVE (RECRUIT SIZE)" 


WeEAB 13 


> HTAB 3 


PRINT "(4) ADDITIVE (SYSTEM SIZE)" 


: VDAB 15 
: HEAB 3 


PRINT "(5) MULTIPLICATIVE (SYSTEM SIZE)" 


: VPAB 17 
> HTAB 3 


PRINT "(6) RETURN TO MENU" 


WeeAB 3 


CALL - 958 


: HTAB Q 


PRINT “FIXED RECRUITMENT VECTOR" 


: VTAB 6 
eee Ab 4 


Bont "THE FIAED RECRUITMENT VECTOR PERMITS" 


: VDAB 8 


Peet “THE USER TO ENTER IN CLASS 'I' A CON-" 


ee VYTAB 10 


Peet "STANT RECRUITMENT NUMBER 'R', &§.G.," 


VTAB 12 
PRINT "(52,15,3), EACH PERIOD. ‘THE OPTION OUT-" 


: VTAB 14 


Poon "PUT YIELDS PREDICTED STOCK VECTORS FOR" 


: VPAB 16 


PRINT "FUTURE PERIODS BASED ON THIS FIXED RE-" 


: VPAB 18 


PRINT "CRUITMENT." 


: GOSUB 9200 


GOTO 4000 


Pa! “ADDITIVE (RECRUIT SIZE)" 


» VTIAB 6 
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VTAB 18 


> HTAB 3 


PRINT "THE ADDITIVE RECRUIT SIZE OPTION PER-" 


: VPAB 8 


PRINT “MITS ONE TO INCREASE THE RECRULTMENT IN" 


VTAB 10 
PRINT "CLASS 'I' EACH PERIOD BY A CONSTANT NUM-" 


: VPAB 12 


PRINT "BER. EXAMPLE: TO INCREASE CLASS '1i' RE-" 


: VEAB 14 


PRINT "CRUITMENT BY 7, STARTING WITH A RECRUIT-" 


: VPAB 16 


PRINT "MENT OF 703; RECRUITMENT FOR PERIOD i" 


Par “WOULD BE 77, FOR PEREOD 2 WOULD BE 84," 


: VPAB 20 


PRINT "AND SO ON. THE PROGRAM WILL ASK THE USER" 
GOSUB 9300 
IF GS = "M" GOTO 4000 


Peon “ROR A TOTAL RECRUITMENT ‘R', E.G. 100, A" 


: VEAB 6 


Peon? “PERIOD ADDITIVE NUMBER, E.G. 10, AND A" 


VTAB 8 


Poi "PROPORTIONAL RECRUITMENT DISTRIBUTION" 


: VDAB 10 


PRINT "VECTOR, I.E. (.70,.20,.10). THE PROPOR-" 


: VEAB 12 


Poet VEONAL VECTOR WILL DISTRIBUTE THE TOTAL" 


VTAB 14 
PRINT "'R' IN THE CLASSES. EXAMPLE, PERIOD O," 
VTAB 16 
eee PP TOTAL "R*’ £5 100, DISTRIBUTION WILL" 


: VTAB 18 


en le eee /OmmezO, TO. BY ADDING 10°TO TOTAL" 


VTAB 20 


Peet "*R' BACH PERIOD, RECRUITMENT FOR PERIOD" 


: GOSUB 9300 


meG> = "M4" GOTO 4000 
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VTAB 6 


CALL - 958 


: VPAB 4 


Boece iwi bs 77, 22, 11, AND SO ON. SYSTEM” 


PRINT "RECRUITMENT CAN BE HELD CONSTANT BY USE-" 


: VEAB 8 


PRINT "ING ZERO AS THE ADDITIVE NUMBER." 


: GOSUB 9200 
¢ GOTO 4000 


VTAB 35 


: CALL - 958 
aA 7 


PRINT "MULTIPLICATIVE (RECRUIT SIZE)" 


: VPAB 6 
: HEAB 3 


Poe. “MULDEPLECATIVE RECRUIT SIZE IS SIMILAR" 


: VPAB 8 


PRINT "TO ADDITIVE RECRUIT SIZE. THE DIFFER-" 


VTAB 10 


PRINT "ENCE IS IN HOW THE RECRUITMENT [5S IN-" 


: VPAB 12 


PRINT "CREASED EACH PERIOD. THE TOTAL NUMBER" 


: VPAB 14 


Pree “OF RECRUITS Is PIAED AND AN HISTORIAL" 


VTAB 16 


poet "PROPORTION VECTOR IS USED. RECRUITMENT" 


: VTAB 18 


PRINT "IS THEN INCREASED BACH PERIOD BY A MUL-" 


: VPAB 20 


PRINT "TIPLICATIVE FACTOR, E.G., 1.2. THE TOTAL" 


: GOSUB 9300 


mea. = Mi" GOTO 4000 


mCAnL - 958 
>: VTAB 4 


Pee RECRUITMENT 'R*, BSG. 100, MULTIPLIED BY" 


: VEAB 6 


eeeNe '142 WiLL GIVE A RECRUITMENT OF 120 FOR" 


VTAB 8 


PRINT "PERIOD 1. A REVIEW OF THE ADDITIVE RE-" 


: VDAB 10 


PRINT "CRUIT SIZE IS RECOMMENDED. THE RECRUIT" 


: VEAB 12 
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VTAB 14 


Wea 12 


PRINT "MENT SIZE CAN BE HELD CONSTANT BY USING" 


Beets 1.0 AS THE MULTIPLICATIVE FACTOR." 
GOSUB 9200 


: GOTO 4000 


VTAB 5 


: CALL - 958 
s atAB 10 


PRINT "ADDITIVE (SYSTEM SIZE)" 


: VPAB 6 
: HTAB 4 


PRINT "THE ADDITIVE SYSTEM SIZE OPTION PER-" 


a LAB 8 


PRINT "MITS THE USER TO CALCULATE THE TOTAL RE-" 


: VDPAB 10 


Preis CRutlMenit “R* REQUIRED TO MAINTAIN Sis—" 


PRINT "TEM SIZE. THE USER MAY ELECT TO INCREASE" 


s VTAB 14 


PRINT "OR DECREASE THE SYSTEM BY A FIAED ADDI-" 


: VEAB 16 


PRINT "TIVE NUMBER BEACH PERIOD, I.E. 10 OR -10." 


: VTAB 18 


PRINT "THE OPTION REQUIRES A HISTORICAL PROPOR-" 


VTAB 20 
PRINT "TION VECTOR TO DISTRIBUTE RECRUITMENT." 


; GOSUB 9300 


IF GS = "M" GOTO 4000 


Mom, - 958 
: VTAB 4 


Be? “AN EXAMPLE VECTOR IS: (.70, .20, .10)." 


: VEAB 6 


PRINT "THE SYSTEM MAY BE HELD CONSTANT BY EN-" 


: VPAB 8 


PRINT "TERING ZERO FOR THE ADDITIVE NUMBER." 


eecosUs 9200 GOTO 4000 


VTAB 3 


CALL -— 958 


: HTAB 8 


PRINT "MULTIPLICATIVE (SYSTEM SIZE)" 


: VDAB 6 
: HTAB 3 





Pte eeMode PPLICATIVE SYSTEM OPTION S1Zk" 


: VTAB 8 


Peete toeoiMIGAR TO ADDITIVE SYSTEM SIZE. THE" 


: VDAB 10 


PRINT “DIFFERENCE IS IN HOW THE SYSTEM 15 IN-" 


MAS: 12 
PRINT "CREASED OR DECREASED. THE OPTION USES A" 


wera 14 


PRINT "MULTIPLICATIVE FACTOR INSTEAD OF AN ADD-" 


MOAB 16 


Cee VE NUMBISR, II-B. 1.2 OR .9. TO HOLD" 
VTAB 18 
PRINT "THE SYSTEM CONSTANT THE USER MAY USE 1.0" 


> VEAB 20 


PRINT "AS A FACTOR. RECRUITMENT IS DISTRIBUTED" 


: GOSUB 9300 


IF GS = "M" GOTO 4000 


om, - 958 
> VTAB 4 


Poe "BY AN HISTORICAL PROPORTION VECTOR, I.E." 


cA 6 


PRINT "(.70, .20, .10)." 


: GOSUB 9200 
; GOTO 4000 


GOSUB 9000 


mv LAB 6 
marAs 6 


PRINT “REFERENCES & ACKNOWLEDGMENTS" 


VTAB 11 


molAB 10 


Poe "(1) REFERENCES" 


mer rAB 13 
worAs 10 


PRINT "(2) ACKNOWLEDGMENTS" 


: VEAB 15 
mol AB 10 


PRINT "(3) RETURN TO MENU" 


GOSUB 9100 
moe < | OR G > 3 GOTO 5004 
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OleG Guo so 00,5200, 1004 


GOSUB 9000 


wera 4. 
ees 61 4 


PRINT "MAJOR REFERENCES" 


eA Ss 


Beet “APPLE COMPUTER INC., BASIC PROGRAMMING" 


sey LAB 10 


PRINT "REFERENCE MANUAL, 1978" 


VTAB 14 
PRINT "“BARTHOLOMEW, D. J., AND FORBES, A. F.,"” 


: VTAB 16 


PRINT "STATISTICAL TECHNQUES FOR MANPOWER, 2ND" 


meyCtAB 18 


Been l "EDS, WiLEY 1979." 
GOSUB 9200 


mee LO 5000 


GOSUB 9000 


mee LAB 3 
earAsp 14 


PRINT "ACKNOWLEDGMENT" 


: VIAB 6 
wee AB 3 


PRINT "MAN=MOD/FORMATTER IS A PRINT USING" 


: VDAB 8 


PRINT "ROUTINE ALLOWING REAL OR INTEGER NUMBERS" 


- YDAB 10 


feo TO BE FORMATTED. IT IS A MODIFIED VER-" 


MAB 12 
Beet SLON OF "PRINT If', <A COMPUTER SYSTEMS" 


: VTAB 14 


Peet “DESIGN COPYRIGHTED PROGRAM. PERMISSION" 


: VDAB 16 


Hee "HAS BEEN OBTAINED TO UTILIZE THE MODI-" 


MeEAB 18 


PRINT "FIED ROUTINE FOR MAN-MOD; ANY CTHER AP-" 


: VEAB 20 


Zoe EulLCATION OF THE ROUTINE IS PROHIBITED." 


meauoJB 9500 


PeeGs = YM" GOTO 5000 


GOSUB 9000 
VTAB 3 


meaoctAB 14 
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: VPAB 8 


: VPAB 12 
: VDAB 14 


: VPAB 20 


mec lAB | 


» NEXT 


PRINT "ACKNOWLEDGMENT" 


VTAB 6 


: HPAB 3 


PRINT "THE AUTHOR WOULD LIKE TO THANK PROFES—" 


PRINT "SORS RICHARD ELSTER AND JAMES ESARY FOR" 


VTAB 10 


Pore “THEIR ASSISTANCE AND SUPPORT WITH THE" 


PRINT "MAN-MOD ADAPTATION. A SPECIAL THANKS TO" 


PRINT "THE AUTHOR'S WIFE, SANDRA, WHOSE UNDER-" 


VTAB 16 
Pee OLANDING WAS STRETCHED TO THE LIMITS," 


: VPAB 18 


PRINT "BUT WITHOUT WHOSE HELP THIS THESIS WOULD" 


PRINT "NOT HAVE BEEN COMPLETED." 
GOSUB 9200 


: GOTO 5000 


: HDAB 1 


INVERSE 
PRINT " * MAN-MOD TRANSITION MATRIX PROGRAM * " 


> NORMAL 
> RETURN 


BEAD 23 


BOm f = 1 TO 39 


PRINT "'', 
VTAB 24 


: HTAB 12 


PeeNT “PRESS SELECTION "; 


meGkET GS 
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: NEXT 
: VPAB 24 
meet As 10 


> NEXT 
: VTAB 24 
meerAB 2 


>: G = VAL (GS) 
: RETURN 


VTAB 23 


: FOR I = 1 70 39 


PRINT "t's 


PRINT "PRESS RETURN FOR MENU "; 


: GET G3 
> RETURN 


WA 25 


SealAG | 
; FOR IT =1 TO 39 


PRINT "'"; 


PRINT "PRESS (C) TO CONTINUE, (M) FOR MENU "; 


. GET GS 
: RETURN 
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APPENDIX C 


MAN-MOD/PROGRAM MODULE 
PROGRAM LISTING 


The MAN-MOD/PROGRAM module is written in Apple II 
Applesoft basic. The program was listed using XLISTER, a 


Beagle Brothers Inc. prgram. 
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MAN-MOD/PROGRAM (PROGRAM LISTING) 


1000 REM MAN-MOD/PROGRAM PROGRAM: "FOR" IS IN QUOTES 
IN LINES 1004,10518,10520,10524,10526,10528,1072 
2,10724,10728,10730,10732 FOR PRINT LISTING ONLY 

1002 D$ = CHRS (4) 

: REM CTRL-D 

1004 PRINT "FOR"6,0; 

: Q$ = CHR$ (34) 


mee HTAB 13 

e PRINT \ ee, oe et Oe er a ? 
mere VEAB 10 

enn «4A 

: PRINT "(1) MAN-MOD THEORY & DEFINITIONS" 
moid VTAB 12 

aeoeAB 4 

: PRINT "(2) MAN-MOD OPERATIONAL MODEL" 
me16 VTAB 14 

—eatAB 4 

meee "(5) SAVE DATA FILB TO DISK" 


1018 VTAB 16 
eS oTAB 4 
: PRINT "(4) EXIT MAN-MOD PROGRAM" 


2COOO HOME 
oe EAB 11 
mw eoOLAB 8 
meet “"<THEORY AND DEFINIZIONS>" 


2002 PRINT D$;"BLOAD MAN-MOD/LINKER, A520" 


fu 





BEAR ‘/ 


Mea lAR 14 


: HTAB 7 


PRINT "(1) INPUT NEW DATA" 
RN 


Es / 
PRINT "(2) RECALL DATA FROM DISK" 
BEEN L 


PRINT "(3) CHANGE OR MODIFY PARAMETERS" 
PRINT 


BAB 


Rant "(5) CALCULATE WITH CURRENT DATA" 
elegy ial 


BoAB / 


PRINT "(6) RETURN TO MENU" 


PRINT "<NEW DATA INPUT>" 


EAB 9 
CALL - 958 


: HTAB 2 


PRINT "INPUT NEW DATA FILE NAME (MAX 15 CHRS)" 
PRINT 


: HTAB 14 


foil “PREoo RETURN" 


ee 





m@eoS VTAB 17 
eaAB 6 
meeeur “KI LE NAME Is “:NFS 
4010 VTAB 4 
>: CALL -— 958 
— VTAB 9 
mea tAB 10 
>: PRINT "NEW DATA FILE NAME I8:" 
eae VTAB 13 
meas (19 = INT ( LEN (NFS) / 2)) 
MeeR INT QO3;NFPS:QS 


mero IF GS = "A" GOTO 4100 


4018 IF GS = "R" GOTO 4004 


ear AD 3 

: PRINT "INPUT NUMBER (K) OF CLASSES (MAX 9)" 

week INT 

weerAB 14 

een? “PRESs RETURN" 
4106 VTAB 16 

Sea LAB 13 

meeveuT “INPUT NUMBER ";:K 


ve 





VTAB 4 


: VTAB 10 
meorAB 12 


PRINT "NUMBER (K) OF CLASSES ENTERED IS:" 


: VPAB 12 


wea 19 

meee ene CN ) tt 

“GOSUB 20300 

“IF G$ = "A" GOTO 4200 
“IF G$ = "R" GOTO 4100 
“IF GS = "E" GOTO 3000 
“GOTO 4112 


CALL - 958 


: HTAB 3 


Pie "CiASs SEZES VECTOR (N) —> (1 BY "K*")" 


eee LeU ROW (Ri) AND COLUMN (C1 TO C'K")" 


PRINT "R1, "; 
II = 9 


HTAB 16 
PRINT "C"I"; "; 
INPUT N(T) 


meeoon | = 1 TO K 
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: NORMAL 


PRINT "INVALID NUMBER" 


fies] [tT + | 
GOTO 4208 
GOSUB 20100 
yb > 
>: CALL = 958 
men eAB 5 
: PRINT "CLASS SIZES VECTOR (N) ENTERED IS:" 
MAB & 
eeeAB 1 4 
meoeeent’ "Ri, ™; 
meer £ = 1 TO K 
: moAB 17 
: Dee Cs eee 7 ) 
s NEXT 
GOSUB 203500 
feces = "A™ GOTO 4300 
faeGs = "R™ GOTO 4200 
iheeGs = "S' GOTO 3000 
Geto 4222 


GOSUB 20100 
I= 1 


VTAB 4 
CALL = 958 


7 HTAB 3 


PRINT "INITIAL FRACTIONAL FLOW MATRIX (P)" 


: HTAB 16 


PRINT eg BY ECE Ae 
ERIN 


BAB 3 


PRINT "INPUT ROW (R(I)) AND COLUMN (C(J))" 


: HTAB 9 


PRINT "FOR THE P(I,J) BLEMENT" 
bE = 9 


VTAB 10 


IS 





- FOR J = { 


- POR IP = 1 


» NEXT 


meeOR LG = 7 


» NEXT 


Se Le eel 


CALL - 958 


: HTAB 13 


PRINT ae) 4) CG io 
ICY 


HTAB 17 
Bene ONT: 1s 
INPUT P(I,d) 


TO K 
Stee ST + P(LT,IP) 


ioe > 1 GOTO 43520 


VTAB (II + J) 


mean B 21 
: FLASH 


PRINT "INVALID NUMBER" 


» NORMAL 


Il = iI + 1 
GOTO 43510 


GOSUB 20500 


meace = "EB" GOTO 3000 


Se HeAB 1d 


moe “ROW "I" INPUT IS:” 


VTAB 10 


meat AB 135 


PRINT ee tt ue 
nea 
HTAB 17 

PRINT "C"Z"- Mee 
mie PCT. I) 
GOSUB 20000 
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4328 GOSUB 20300 


Meoo L=tl + 1 
: IF I > K GOTO 4400 


PRINT "RECRUITMENT OPTIONS INPUT MENU" 


PRINT "(1) FIXED RECRUITMENT VECTOR" 


meatAB 3 

mean? "{2) ADDITIVE (RECRUIT SIZE)" 

ER LNT 

meer AB 4 

meee (5) MULTIPLICATIVE (RECRUIT SIZE)" 
PRINT 


Et) "(A ADDITEVE (SYSTEM SIZE)" 


: HTAB 3 
: PRINT "(5) MULTIPLICATIVE (SYSTEM SIZE)" 


Par GOSUB 20200 
Or = G 
foeee LF OP < 1 OR OP D 5 GOTO 4410 
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Mela, 5 
>: CALL -— 958 
See AB 2 
>: PRINT "RECRUITMENT VECTOR (R) FOR OPTION (1)" 
SweotaB 4 
; PRINT "INPUT ACTUAL RECRUITMENT NUMBERS" 
mera | 2 
> PRINT "(I.E., 52, 15, 3)" 
VPAB 10 
SeeaAB 2 
weeRENT "INPUT ROW (R1) AND COLUMN (C1 TO cC!K")" 
PPV EAB 12 
men AD 12 
> PRINT "R1, "; 
ai = | | 
meookr ~f = 1 TO K 
HTAB 16 
Erne 1s 1s 
meUT Rit) 


NEXT 
SOLO 4434 
VIAB (II + I) 
BrAB 21 
READE 
eerauNn? "“TNVALID NUMBER" 
>: NORMAL 
wee = [IL + 1 
miGortO 4426 
VEAS 5 
meCALL = 958 
walAB 3 
: PRINT “RECRUITMENT VECTOR (R) ENTERED IS:" 
VTAB 9 
mee AB 13 
: PRINT "R1, "; 
meek [=i TO K 
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- HTAB 10 


: VPAB 12 
: HEAB 12 


a FOR I = j 


Ee lf 


Pree GMT: "s ART) 
; NEXT 
“GOSUB 20300 
“IF GS = "A" GOTO 4600 
“IF GS = "R" GOTO 4416 
“IF G$ = "E" GOTO 3000 
“GOTO 4438 
“IF OP = 2 OR OP = 4 THEN BS = "+" 
IF OP = 3 OR OP = 5 THEN BS = "*" 
IF OP = 4 OR OP = 5 THEN A = - 1 
“ONERR GOTO 4460 
IF A = - 1 THEN GOSUB 20900 


VTAB 5 
CALL - 958 
PRINT "RECRUITMENT VECTOR (R) FOR OPTIONS (2-5)" 


: VPAB 6 
: HTAB 7 


Poe “ENPUL ALISTORICAL PROPORTIONS" 


PRINT "(I.E., Se 5 Ose 


VTAB 10 


marAB 2 


Eran? "INPUT ROW (R1) AND COLUMN (C1 TO C"K")" 


Mae "RI, "3 
It = 11 


HTAB 16 
aoe’: 
INPUT R(I) 


3) 





4468 


: NEXT 


: NEXT 


NEXT 


wee = O 


Hone = | TO K 
Bee Ree R« LE) 


Wigan << 1 OR RR > 1 GOTO 4474 


VTAB (II + I) 


wealAB 21 
: FLASH 


PRINT "INVALID NUMBER" 


: NORMAL 


i= Il + | 
GOTO 4464 


GOSUB 20100 
VTAB 11 


: HEAB 3 
: FLASH 


PRINT "RECRUITMENT VECTOR MUST EQUAL ONE" 


: NORMAL 


eon) 


amAR 5 


PRINT "PRESS RETURN TO REENTER VECTOR" 


* VTAB 24 
eae AB 13 


Paid “PRESS RETURN "; 
GET G$ 


: GOTO 4454 


mea2AB | 3 


Boast "Ri, "; 


: FOR T= 1 70 XK 


HTAB 17 

RCL oA GaSe 
P1 = R(I) 

GOSUB 20000 


IF GS = "A" GOTO 4490 
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4496 VTAB 5 

> CALL - 958 

weet AB 4 

> PRINT "NUMBER (A) RECRUITS ENTERING SYSTEM" 
4498 VTAB 7 

> CALL - 958 

SeeAD 14 

meee? "INPUT (A) ":A 


weHeAG 4 

ening. “TOTAL NUMBER (A) ENTERING SYSTEM" 
weERLNT 

meaLlAB 19 

meek iNT "Is" 

mevLAB 12 

mene =] STRS (A) 

metas (20 — INT (( LEN (AS) + 2) / 2)) 

- PRINT es ya 


4516 ONERR GOTO 4520 
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> CALL = 958 
2 SUMS mats 
jeeauNt "NUMBER TO ADDITIVELY CHANGE" 
eon NT 
: HTAB 9 
meen. “RECRUITS OR SYSTEM SIZE" 

meee VTAB 11 
2 SUL Se aS 
meeeor “ENPUT (C): "sc 

Poe VTAB 5 
> CALL - 958 
: HTAB 6 
> PRINT "TOTAL NUMBER (C) TO INCREASE" 
>; PRINT 
wee las 10 
meee) “RECRUITS OR SYSTEM IS" 
me LAB 12 
- C$ = STRS (c) 
* HTAB (20 - INT (( LEN (C$) + 2) / 2)) 
¢ PRINT " ( nett ) tt 


Seee IF GS = "EB" GOTO 3000 


moe VTAB 5 
>; CALL - 958 
‘ear AB 4 
meee iNT “MULTIPLICATIVE FACTOR TO INCREASE" 
weeR INT 
> HTAB 9 
meee “RECRUITS OR SYSTEM SIZE" 


82 





]ervewb | 4 


: HTAB 14 


Vee | | 


Meet "ENPUT (CC): ";C 


— [> —_ Raa aian ane SS aie Ee Ee = == 


Ween 5 


: CALL = 958 
Mm oTAB 2 


PRINT "MULTIPLICATIVE FACTOR (C) TO INCREASE" 
PRINT 


> HTAB 10 
: PRINT 
: VTAB 12 

meso STRS (C) 

> HTAB (20 — INT (( LEN (C$) + 2) / 2)) 


HEGvOltor OR ovocaM 15" 


PRINT " ( tctt ) tt 


= "R" GOTO 4540 


it ie 
= Jw 


GOTO 3000 


VTAB 4 


CALL - 958 


mT AB 6 
wea taB 4 
>: PRINT "INPUT NUMBER (T) OF TIME PERIODS" 


MUN T 


Pain "PRESS RETURN" 


Pea 15 


mea AB 15 


BiPurT “INPUT NUMBER ";T 


mo TAB 


PRINT "NUMBER (T) OF TIME PERIODS ENTERED IS:" 
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Pen T 
2 ERENT 
> HTAB 19 
PRINT " ( ime ) " 


PRINT "SELECT PERCENTAGES OPTION" 

: PRINT | 

weHTAB 14 : 

meee iNT “SOR PRINTOUT" 
4706 VTAB 12 

mea AB 2 

: PRINT "(1) NO CLASS PERCENTAGES (%)" 

meCR INT 

MeaTAB 2 

meeRINT "(2) GRADE SIZE AS % OF TOTAL SIZE" 

moe INT 

meal AS 2 

: PRINT "(3) GRADE SIZE AS @ OF ORIGINAL SIZE" 
4708 GOSUB 20200 

mes = GS 


meee 25 = "1" OR ZS = "2" OR ZS = "3" GOTO 4714 


47i4 HOME 
a vEAB 11 
aeetAB & 
eeea iNT “INITIAL INPUTS COMPLETED" 
meion £ = 1 TO 1500 
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2 NOT 
> GOTO 9000 


5004 VTAB 9 
> CALL - 958 
waeAS % 
> PRINT “ENTER DATA FILE NAME TO BE RECALLED" 
ween iNT 
werens 15 
PRINT "(PRESS RETURN)" 
Beem VTAB 18 
P HTAB 19 


Pees VTAB 17 
weatas 6 
: INPUT “FILE NAME IS ";NFS 


> HTAB 7 
; PRINT "RECALLED DATA FILE NAME IS" 


mele VTAB 13 
: HTAB (19 - INT ( LEN (NFS) / 2)) 
> PRINT Q3;NFS; QS 
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: NEXT 


: HTAB 9 


Peewee ““ONPUT DISK DRIVE NUMBER” 
eer 
ig) EN 


: HTAB 12 


ere (1 episk DRIVE 1" 
Eee 


: HTAB 12 


PRINT "(2) DISK DRIVE 2" 
PRINT 


. HTAB 12 


PRINT "(3) ESCAPE TO MENU" 


PRINT 


DS;"OPEN"NFS" ,D";DN 


>; FOR IT =1 70 9 


eT RRC) 


INPUT A 
INPUT BS 
mieUL C 
eYeUT T 
INPUT 23 
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: NEXT 
- FOR I =1 70 X 


: NEXT 
- FOR I =1 70K 
) 


FOR J = 170 K 
Boren) = PPG@n.) 
NEXT 


ren) = RRC 


GOSUB 20900 
GOTO 3000 


FLASH 
PRINT "ERROR IN FILE NAME OR DISK SELECTION" 


: NORMAL 


ata NL 


: HTAB 15 


Meant? "“<REVERIFY>" 
BOLO 5010 


VTAB 5 


ment AB 9 


PRINT "<CHANGE OR MODIFY DATA>>" 


>: HTAB Q 


PRINT "----------------—------- " 
PRINT 


VTAB 9 


oTAB 3 


PRINT "(1) FILE NAME"; 


: HTAB 23 


Pont’ "(7) PERCENT (%)" 


: HTAB 3 


Ene (2) ENITIAL STKS"; 


: HTAB 23 
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EAB 9 


» NEXT 


PRINT "(8) SBXT RANGE +T" 


: HTAB 3 


PRINT "(3) MATRIX (P)"; 


> HTAB 23 


PRINT "(9) (P) ELEMENT" 


PRINT "(4) RECRUITMENT"; 


: HPAB 23 


PRINT "(10) (P) ROW" 


: HTAB 3 


Bene (5) OPTIONS": 


- HPAB 23 


PRINT "(11) RESET STKS" 


: HTAB 3 


eee "(6) TIME (T)"; 


: HPAB 23 


PRINT "(12) RETURN MENU" 
Emme NT 


VTAB 18 


—eteAD 5 


Presi '* GOTO THEORY FOR EXPLANATIONS *" 


ein 2D 


ea lAD I 
meson 1 = i TO 59 


PRINT "'"; 
VTAB 24 


wer tAB 11 


PRINT "INPUT SELECTION ": 
INPUT G$ 
G = VAL (G$) 


meeG < 1 OR G > 12 GOTO 6000 


ON G GOTO 6100, 6200, 6300, 6436, 6400, 6600, 6700, 6800, 69 
wero, | 100, {200 


PRINT “DATA FILE NAME IS:" 
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so4 VTAB 13 
: HTAB (19 - INT ( LEN (NFS) / 2)) 
: PRINT Q$;NFS;QS$ 


eyoSs IF GS = "A" GOTO 6000 


meen 2 
: PRINT "INPUT NEW DATA FILE NAME (MAX 15 CHRS)" 
See A LNT 

wot 14 

meen ent “PRESS RETURN" 


oo VTAB 15 
featAB 6 
meer uUT "FTLE NAME IS “s;NFS 


: HPAB 3 


SealADp 13 

meee NT "Ri, s 
meeorn £ = 1 TO K 
: HeAB | 7 

: Bee Ours sau T) 
en EAT 


oes) IF GS = "A" GOTO 6000 


eo) If GS = "R" GOTO 6214 
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: NEXT 


» NEXT 


: NEXT 


VTAB 5 


>: CALL = 958 
eeeAB 3 


Pt “ChASS SEIZES VECTOR (N) —> (1 BY "K™)" 


VTAB 9 


> HTAB 3 


PRINT "INPUT ROW (R1) AND COLUMN (1 TO "K")" 
eigen ph 


: HEAB 12 


PRINT "R1, "; 


- FOR I=1 70K 


HTAB 16 
PRINT "C"I": "; 
INPUT N(I) 


monet = 1 TO K 
ee) = tT) 


I = 1 


VTAB 4 


CALL - 958 


se VTAB 5 
meat AB 135 


coo “ROW "IT" INPUT IS:" 


AB 8 


mealAB 13 


PRINT as ae ee 


: FOR L = 1 70 X 


PAB 17 

PRINT a! ° : 
ee Ey) 
GOSUB 20000 
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mie 2P)Ga = "E" GOTO 6000 


ie > K GOTO 6000 


eeee VTAB 4 
: CALL - 958 
we eAB 3 
: PRINT "INITIAL FRACTIONAL FLOW MATRIX (P)" 
meeeeAB 16 
- PRINT We BY err at 
PRN T 
Bed HTAB 3 
: PRINT “INPUT ROW (R(I)) AND COLUMN (C(J))" 
: HTAB 9 
: PRINT "FOR THE P(I,J) BLEMENT" 
ai 9 
meeo VTAB 10 
eHIAB 1 
: CALL - 958 
: HTAB 13 
- PRINT ee jee ue 
aeoeR vw = | TO K 
2 Pas moAB | / 
: Beer "CN ys 
INPUT P(I,J) 


So52 NEXT 
mor = O 
meoor IP = 1 TO K 
: pibe= of + P(L, IP) 
NEXT 


ies. > | GOTO 6358 


Moo VIAB (II + J) 


sol 





eB 2 2 1 


3 THEN PRINT TAB( 


GOTO 6000 


UOEMrOn SeuECTEp 15: " 


(R) CHANGE OPTION)" 


PRINT "((C) TO CHANGE PARAMETERS) "; 


6000 
6424 
6436 


FLASH 
>: PRINT "INVALID NUMBER" 
>; NORMAL 
meee TT + 7 
GOTO 6328 
6338 GOSUB 20500 
LB G$ —_ ee 
6340 GOTO 6300 
6400 GOSUB 20100 
6402 VTAB 8 
: CALL - 958 
2 Sa 
meer oN T 
wevras 13 
oes IF OP = 1 
R" 
6406 IF OP = 
6408 IF OP = 
SIZE)" 
mero IF OP = 
foe Lf OP = 
Sy 
m74 VTAB 22 
mee rAB 2 
; PRINT "(PRESS (M) MENU, 
Seen LNT 
eH TAB 6 
GET G$ 
aro «6LF GS = "M" GOTO 
earo IF G$ = "R" GOTO 
eereO IF G$ = "Cc" GOTO 
6422 GOTO 6414 


—_— SS Sn = SS eS OS ae ees a ees Ge ee ese eee ee 


a2 


8)"FIXED RECRUITMENT VECTO 


9)"ADDITIVE (RECRUIT SIZE) 


6) "MULTIPLICATIVE (RECRUIT 


9)"ADDITIVE (SYSTEM SIZE)" 


So MUETIPLICATIVE (SYSTEN 





ONERR GOTO 6428 


VTAB 9 
> HTAB 3 
week INT "(1 ) 
eee INT 
eaPAB 3 
: PRINT "(2) 


FIXED RECRUITMENT VECTOR" 


LDPE VR RECRUIT SIZE)" 
PrN 'T 


: HTAB 3 


PRINT "(3) 
Pee 


MULTIPLICATIVE (RECRUIT SIZE)" 


HTAB 3 
PRINT "(4) 


ADDITIVE (SYSTEM SIZE)" 


eer LNT 
: HTAB 3 
een oNT "“(5) MULTIPLICATIVE (SYSTEM SIZE)" 
GOSUB 20200 
Or = G 


manor < 1 OR OP > 5 GOTO 6424 


WEAR 5 

> CALL = 958 

meat AB 4 

meen iNT “RECRULTMENT VECTOR (R) ENTERED IS:" 
VTAB 9 

wee AB 13 

: PRINT "R1, "; 

meeornm Lt =i TO K 


= 5) 





joy simee iat, 
PRINT "C"'LT": ":2R(T) 
: NEXT 


moe IF GS = "A" GOTO 6000 


webAD 2 
: PRINT “RECRUITMENT VECTOR (R) FOR OPTION (1)" 
: HTAB 4 
eee: “TNPUT ACTUAL RECRUITMENT NUMBERS" 
eat AB 12 
meee V(t.e., 52, 15, 3)" 
6460 VTAB 10 
weer aAB 2 
weeniNT “INPUT ROW (R1) AND COLUMN (Ci TO C'K")" 
mevrnB 12 
meat AB 12 
MeeENT “Ri, "s 
er = 11 
meen |. = 1 TO K 
6462 mAs 16 
: Ere VENT te ot. 
INPUT R(T) 


meen ent “INVALID NUMBER" 
>: NORMAL 

or = Jt + 7 

mcotO 6462 


OV 
oe 
<5 
© 
tro 
| 
© 
rg 
)) 
NO 
@) 
ae 
oS 
rg 
I) 


ASSEN Bp = *" 


1 3e mt 


OV 
fs 
—] 
NO 
tA 
hy 
eS 
rg 
rT 
IN 
© 
a0. 
BS 
tg 
} 


= 5 THEN BS 


it 
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yy Aiclid]\ ae 


VRAB 5 
s CALL - 958 
> HTAB 3 
> PRINT "RECRUITMENT VECTOR (R) ENTERED IS:" 
VTAB 9 
PPAB 13 
mecNT "RI, "; 
meoon £ = 1TO K 
mr AB 17 
PRINT Gs ° tt ; 
P1 = R(T) 
: GOSUB 20000 
>: NEXT 
GOSUB 20300 
IF GS = "A" GOTO 6512 
IF GS = "R" GOTO 6496 
IF GS im GOTOS6000 
GOTO 6486 
WrAB 5 
meal AB 
>: CALL - 958 
: PRINT "RECRUITMENT VECTOR (R) FOR OPTIONS (2-5)" 
pevrTAB 6 
aeerAb 7 
meee, “TNPUT HISTORICAL PROPORTIONS" 
wear Asp 10 
meer? "(T.e., .74, .21, .05)" 
VrAB 10 
meat AB 2 
meni? “INPUT ROW (Ri) AND COLUMN (Ci TO C'K")" 
merraB 12 
meaeAB 12 
Meee uNr "RI, "3 


25 





= a eS a 


¢ NEXT 


HTAB 16 
PRINT "C!I"; ": 
INPUT R(I) 


- FOR I =1 70K 


RR = RR + R(IL) 


imoeee < 1 OR RR > 1 GOTO 6510 


VTAB (II + I) 


mea 2 | 
2 ube Shel 


Breen’ “INVALID NUMBER” 


» NORMAL 


fe= [1 + 1 
GOTO 6500 


GOSUB 20100 


meas 11 
: HTAB 3 
PPA SH 


PRINT "RECRUITMENT VECTOR MUST SQUAL ONE" 


>: NORMAL 


Pav T 


: HTAB 5 


PRINT "PRESS RETURN TO REENTER VECTOR" 


- VPAB 24 
- HPAB 13 


PRINT "PRESS RETURN "; 
GET GS 
GOTO 6496 


meee — 4 OR OF = 5 GOTO 6538 


GOSUB 20100 
VEAB 5 

CALL - 958 

HTAB 


PRINT "TOTAL NUMBER (A) ENTERING SYSTEM" 
Pee NT 
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: HTAB 19 

Seen? "Ts" 

See | 2 

> AS = STRS$ (A) 

: HTAB (20 - INT (( LEN (A$) + 2) / 2)) 
- PRINT Ar GLP Le 


6530 VTAB 5 

: CALL - 958 

[ear AB 3 

: PRINT "NUMBER (A) RECRUITS ENTERING SYSTEM" 
eeoe VTAB 7 

;: CALL - 958 

wea AB 13 

> INPUT "INPUT (A) ipa 


6544 VTAB 5 
: CALL - 958 
meatAB 6 
meee int “TOTAL NUMBER (C) TO INCREASE" 
meen iNT 
mee lAB 10 
meet “RECRUITS OR SYSTEM IS" 
mevETAB 12 
meet = STRS (C) 
mearaAs (20 = INT (( LEN (C$) + 2) / 2)) 
- PRINT PGI ha yatt 





eoae «IF GS = “A” GOTO 6000 


: CALL - 958 
-eLLAB | 
: PRINT "NUMBER TO ADDITIVELY CHANGE" 
eee NT 
wea 9 
meen: “RECRUITS OR SYSTEM SIZE" 
wee nun T 
meen 15 
pra “(t.B., 125)" 
@o>o 6C VTAB O14 
meaeAB 15 
mebesur "INPUT (C): "3;C 


6564 VTAB 5 
> CALL - 958 
—evAB 4 
meen “MULTIPLICATIVE FACTOR TO INCREASE" 
oeouLNT 
oeatAB 10 
een Nt “RECRUITS OR SYSTEM IS" 
sw VTAB 12 
mee = OTRS (C) 
meapaB (20 = INT (( LEN (CS) + 2) / 2)) 
- PRINT " ( eal ) " 


Seee LF GS = "A" GOTO 6000 


6572 GOTO 6566 
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>: HTAB 9 


: HEAB 15 


: HTAB 13 


: HTAB 2 


PRET “MULTIPLICATIVE FACTOR (C) TO INCREASE" 
Jetgc JUN 
Baa “RECRUITS OR SYSTEM sIZE™ 
Pen T 


PRINT "(I.E., 1.2)" 


VTAB 14 


ioe! "INPUT (C): ";C 


VTAB 4 
CALL - 958 


>; VTAB 9 
weal AB Cc 


PRINT "NUMBER (1) OF TIME PERIODS ENTERED IS:" 
Ba oi T 


eee RINT 

eat Ap 19 

- PRINT " ( EL ) " 
GOSUB 20400 
Meas = "A" GOTO 6000 
Weaeap = "R" GOTO 6612 
GOTO 6604 


mela 4 


PRINT "INPUT NUMBER (T) OF TIME PERIODS" 
PRINT 


: HTAB 14 


meet "PRESS RETURN" 


VTAB 16 


od 





: HPAB 14 
- HEAB 2 
: HEAB 2 


: HTAB 2 


eines) 1c 


mes "INPUL NUMBER ";7 


fie e 1 Gro 6614 


VTAB 4 
CALL - 958 


; VTAB 6 
« HTAB 8 


PRINT “SELECT PERCENTAGES OPTION" 
PRINT 


Poot "FOR PRINTOUT" 


meas 1 2 


paeNnT "(1 ) 
He ENT 


NO CLASS PERCENTAGES (%)" 


PRINT "(2) GRADE SIZE AS @ OF TOTAL SIZE" 


PRINT 
PRaNgT "(3) 


GRADE SIZE AS % OF ORIGINAL SIZE" 


GOSUB 20200 
25 = GS 


eo One nee Goto 6000 


MeeAD 5 
CALL - 958 


: HPAB 2 


PRINT "NUMBER (1) OF TIME PERIODS ENTERED IS:" 
71 ih 


: HTAB 19 


PRINT " ( inmitt ) TT 


ieraD | 2 
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Zea cAB 8 


CALL = 958 


: HTAB 10 


PRINT "EXTEND RANGE ("TA") TO :" 


VTAB 22 


: HTAB 4 


PRINT "(CANNOT BE LESS THAN "T" PERIODS)" 


VTAB 14 


> HTAB 14 


PRINT "INPUT +1: "; 
INPUT TA 
IF TA < T GOTO 6806 


VTAB 4 
CALL - 958 


ave 1 I 
ven B 5 


PRINT "TIME (+1) PERIODS BXTENDED 70:" 
PRINT 


een NT 

mea 1S 

>: PRINT Any Ge Ah 
GOSUB 20400 
isis = "A" GOTO 6000 
IF GS = "R" GOTO 6800 
GOTO 6814 
mee = < 0 GOTO 6000 


VTAB 4 


> CALL - 958 


Pan? 


> HTAB 6 


PRINT "CHANGE INDIVIDUAL ELEMENT OF" 
EEN T 
PRINT "THE TRANSITION MATRIX (P)" 
BRON T 


: HTAB 17 


PRINT "P(I,J)" 





6908 VTAB 14 
CAG =— 956 
woe | 1 
> PRINT “INPUT ROW NUMBER: "; 
myeurT I 
IF I < 1OR I> K GOTO 6908 


e9i2 VTAB 17 
> CALL - 958 
eaeAD 1 4 
see?’ "TNPUT COL NUMBER: "™; 
INPUT J 
mind < 1 OR J > K GOTO 6912 


6916 VTAB 6 
> CALL -— 958 
>: PRINT "THE PRESENT TRANSITION MATRIX ELEMENT IS" 
eehAB 11 
meae= P(I,J) 
eens 17 
: GOSUB 20000 


6920 IF GS = "A" GOTO 6000 


6930 VTAB 6 
> CALL -— 958 
ear As 2 
meen. “TNPUT NEW ROW "I", COL "J" MATRIX ELEMENT" 
i= 17 
6932 VTAB (II) : 
-eTAB 7 
meee "“TDNPUT P("I","3") ELEMENT:": 
MmyPUT P(L,J ) 


6934 IF P(I,J) = > O AND P(I,J) < = 1 GOTO 6942 
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6936 GOSUB 20500 
ec oe) =GoLe 6000 


6940 VTAB II 
wenn 29 
; FLASH 
meow "INVALID NO." 
: NORMAL 
meee = TT + | 
: GOTO 6932 
mae of = 0 
eon LP = 1 TO K 
: ST = ST + P(I,IP) 
>: NEXT 
feet > 1 GOTO 6936 


i 
PRINT “THE NEW ROW "I", COL "J" ELEMENT" 

Ber nLNt 

meacAB 1'/ 

: PRINT ets yt Ts" 

mevrAB 13 

mee. = P(I,d) 

meal AB 17 

meaeoUB 20000 


6950 IF GS = "A" GOTO 6000 


feos VTAB 4 
>: CALL - 958 
2 Jew 
MEELEAB 5 
; PRINT "CHANGE WHOLE ROW OF ELEMENTS OF" 
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Sy eee 
= la uh Jets 
Peek “PAE TRANSITION MATRIX (P)" 


mees VTAB 17 
: CALL - 958 
wea tAB 11 
eereNnt “INPUT ROW NUMBER: "; 
meer fT 
IF I <¢ 1 OR I> K GOTO 7008 


7012 VTAB 6 


CALL - 958 
eee ' THE PRESENT TRANSITION MATRIX ROW "I" IS" 
: VTAB 9 
meas 1 7 
feo’ “ROW “":T 
mevrAB 11 
meoen og = 1 TO K 
mee) = PCI, J) 

BOAB 14 


Beebe COL Ni! 's 
: GOSUB 20000 
oN oA T 


7016 IF GS = "A" GOTO 6000 


Gere. IF GS = "R" GOTO 7022 


7026 VTAB 5 
: CALL = 958 
aeotAB 2 
: ae "MINITIAL FRACTIONAL FLOW MATRIX ROW ";I 
= 9 
feeo VTAB 10 
PeeeAB | 
= CALL —- 958 
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» NEXT 


: NEXT 


PvaAD 15 


PRINT wT tt , "? : 


Pee os = (moO XK 


HTAB 17 
Beer Cyt: ts 
INPUT P(I,J) 


ST = 0 


- FOR IP = 1 70 K 


ST = ST + P(I,IP) 
IF ST > 1 GOTO 7040 


VTAB (II + J) 
HTAB 21 


: FLASH 


PRINT "INVALID NUMBER" 


>: NORMAL 


mee= [i + | 


: GOTO 7030 


GOSUB 20500 
feces = “h" GOTO 6000 


VTAB 5 


CALL - 958 


: ETAB 6 


PRINT "PRESENT CLASS VECTOR (N) IS:" 


meeeAB 13 


een “Ri, "s 


: FOR I =1 70 XK 


HTAB 17 
BoC" Ts "s eN(T) 


VTAB 19 


wee AB 1 


PeiieeRnSS (Rk) TO CHANGE VECTOR BACK TO THE" 


tis 





A Jol Iby\loy 1S 
: PRINT "ORIGINAL CLASS VECTOR (N)" 


7110 IF GS = "A" GOTO 6000 


frie FOR I = 1 TO K 


eevee ir G < i OR G > 3 GOTO 8000 


8104 VTAB 3 

meelAB 12 

meee "FILE DATA LISTING" 
eyeo, FOR I = 1 TO 39 

: Pe le 

: NEXT 


INVERSE 
S FRINT “DATA FILE NAME:"; 
: NORMAL 
>: HTAB 18 
> PRINT NFS 


INVERSE 
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2 NDp.Gk 


> NEXT 


» NEXT 


PRINT "NUMBER K CLASSES:"; 


» NORMAL 
- HTAB 19 


2ICULINGR 56 = 
INVERSE 


- HEAB 22 


Boe Tis T PERTODS:"; 


» NORMAL 
- HTAB 38 


PRuNT T 


VTAB 12 


: HTAB 1 


INVERSE 
Boe VU INITTAL STOCKS: "; 


: HTAB 22 


Print "RECRULIMENT VECTOR: " 


: NORMAL 


VTAB 14 


eA D 


Poe "RI, "5 


- FOR IT=1 70K 


HTAB 5 
PRINT "C"I": "; 4M(T) 


VTAB 14 


ameatAb 24 


Pon RIT, 


mor = > 2 AND OP < = 5 GOTO 8122 


POR [T =1 TOK 


HTAB 28 
Eee hort its Ih ART ) 


GOTO S8i2d 


Peat = 1 TO K 
HTAB 28 
PRINT "Cry. ve 
Ee mL) 
GOSUB 20000 


INVERSE 


meas 24 
eae AB 4 


PRINT "PRESS (C) TO CONTINUE, (E) TO ESCAPE "; 
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: GET G$ 
NORMAL 


PRINT “FILE DATA LISTING CONTINUED" 
“weoo 6OFOR [T = 1 TO 39 
: Preyer  "s 
2 OGL 


SPRINT "PRINTOUT PERCENTAGES OPTION:"; 
> NORMAL 

LAB 8 
malAB 3 


eaato 6 VVTAB OC 1 
wa lAB 1 
>: INVERSE 
weer? “OPTION SELECTED:": 
> NORMAL 
mevraAs 13 
matAB 3 


8158 VTAB 16 
morTAD 1 
>: INVERSE 
meee’ “OPTION INPUTS:"; 
>: NORMAL 
me TAB 18 
eas 3 
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: NEXT 


NEXT 


eno 
2 HTAB 1 


: NEXT 


VTAB 
HTAB 


24 
| 


INVERSE 


PRINT "PRESS (C) TO CONTINUE, 


GET GS 


PRINT 


FOR 


: NORMAL 


=_ Oey 


= Wht 


I= 1 


ame 


VTAB 


T 


INVERSE 


ec AS 
meen’ “TRANSITION MATRIX (P)" 
> NORMAL 


K1 = 
IF K 


10 


K 


le LEN KG 


=| 


SEO) © 1564 


Gelo” 3166 
Gea 2000 


= 5 


Pete "HOW ss SPC( 2); 


VTAB 


11 
i= | 


IMG) 3 


BN VON ST 


Ii = 
HOR 


i 


ioe 
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Cy eLorsocarn |. 


"PILE DATA LISTING CONTINUED" 


INO) aes, 





Vea 1 1 
FOR J = 1 


NE 
IESE 


>; NEXT 


P4 


= Pl 


HTAB (II 
GOSUB 20000 


XT 


II + 


Oe 
al 


7 


K2 = 


K 


KZ > © GOTO 8206 


VTAB 24 


Palas 


8 


INVERSE 


; PRINT "PRESS RETURN FOR MENU " 
eG. 

: NORMAL 
mean 5000 


GS 


VTAB 24 


: HTAB 


1 


INVERSE 


PRINT "PRESS (C) 


: GET 
: NORMAL 


GS 


= BOs 


GOTO 


= Wee 


GOTO 


eel AB 


PRIN 


7 
fh 


beled 


DATA 


» NEXT 


FOR I = 1 


SO 


ey Ns 


22 


VTAB 


7 


INVERSE 


. HPAB 


5 


TO CONTINUE, 


8214 
3000 


? 


(E) TO ESCAPE "; 


i NG SCONE IN URED" 


PRINT "TRANSITION MATRIX (P) CONTINUED" 


>: NORMAL 
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> NEXT 


: NEXT 


: NEXT 


= elt os) 
HOR L = 6°TO. K 


BRENT nOwe sl; SPC( 2); 


Pee ON 1 


= 4 
: FOR I = 6 TO K 


VTAB 11 

FOR J = 1 70 K 
md = Dltep 
HTAB (II) 
GOSUB 20000 

NEXT 

fr & 7 


VTAB 24 


ealAD S 


INVERSE 
PRINT "PRESS RETURN FOR MENU "; 


: GET G$ 
s NORMAL 
; GOTO 3000 


mala 4 


Peete DATA LISTING PAPER PRINT ROUTINE" 


VTAB 12 


ear AB 6 


eee 41) PAPER COPY "; 


> INVERSE 


PRINT "(PRINTER ON)" 


> NORMAL 


VTAB 14 


: HTAB 6 
: PRINT "(2) RETURN 1O MENU" 


HOt! 





SeowetheG < 1 Oh G > 2 GOTO 8508 


eei2 iIFG 2EGeLOesO00 


HTAB 4 
PRINT "PAPER DATA LISTING BEING PRINTED" 
8316 GOSUB 20600 
waorO 4000 


9002 VTAB 7 
: HTAB 6 
: PRINT "DO YOU WISH TO SAVE DATA FILE" 
: PRINT 
mae (19 = ENT ( LEN (NFS) / 2)) 
: PRINT Q$;NF$;Q8 
9004 VTAB 14 
: HTAB 17 
; PRINT "(1) YES" 
: PRINT 
© HTAB 17 
: PRINT "(2) No" 


feos IF G<1OR G > 2 GOTO 9006 


weoltAB 9 

: PRINT "INPUT DISK DRIVE NUMBER" 
PRINT 

: PRINT 

: HPAB 12 

: PRINT "(1) DISK DRIVE 1" 

mee R ENT 

weolAB 12 

: PRINT "(2) DISK DRIVE 2" 
PRINT 
HTAB 12 
PRINT "(3) BSCAPE TO MENU" 


ea 





GOSUB 20200 


ieeGe< |90OR G > 5 GOTO 9104 
DN =G 
iG. = > Teer 1006 
HOME 
VTAB 11 
HTAB 
moe '<DATA FILE IS BEING SAVED>" 
men f = 1.70 K 

N(I) = M(T) 

NN(I) = N(TI) 
NEXT 
Ben ek = 1°TO K 

Beh) = 1) TO K 

Pet eh), = PC I,J) 

NEXT 
NEXT 
fen lt = 1TOK 

RR(I) = R(T) 


GE 2S asf 2 48 SD OD SE GE a Se aa eae 


BRL T 
Bee DS;"OPEN"NES" ,D';DN 
PRINT DS;"DELETE"- NFS 
Pernt? DS;"OPEN" : NES 
Peon? DS;"WRITE" > NES 
PRINT K 
Bore L = 1 TO 9 
PRINT NN(T) 
NEXT 
mon I = 1 TO 9 
FOR J = 1 T0 9 
BRONT PP(1,J) 
: NEXT 
>: NEXT 
meron - = 17T0 9 
: PRINT RR(I) 
es AT 
meen iNT A 


11S 





PRINT BS 

Pee -C 

Eee: 0 

PRINT ZS 

PRint OP 

Poel DO 

Pan DS;"CHOsE” 


eaeas 15 


Beer “<BATT ROUTINE>" 


: HTAB 13 


PRINT "“—__................. " 


VTAB 11 


Zea OS 


PRINT "(1) RETURN TO MAIN MENU" 
Pa T 


HTAB 8 
PRINT "(2) BXIT PROGRAM" 


meee < 1 OR G > 2 GOTO 9208 


HOME 


oe LAB 11 
mea ‘/ 


PRINT "MAN-MOD ANALYSIS COMPLETED" 
ERIN T 


: HEAB 5 


PRINT "TURN OFF COMPUTER AND FILE DISK" 


meee Lf = 1 TO 5000 
> NEXT 

; HOME 

> END 


VTAB 8 


malas 4 
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PRINT "(1) CALCULATE ALL "T" PERIODS" 
>: PRINT 
> HTAB 4 
: PRINT "(2) CALCULATE LAST TIME PERIOD "7 
: PRINT 
> HTAB 4 
: PRINT "(3) EXTEND CALCULATION RANGE" 
: PRINT 
> HTAB 4 
PRINT "(4) RETURN TO MENU" 


10010 GOSUB 20700 
meo = G 
Mice 1eeR G > 5 GOTO 10010 


fools IF PR = 1 OR PR = 2 THEN FOR I = 1 TO K 
- : ree), = IT ) 
ae NEXT 


meeto If PR = 2 THEN SP = 1 


ieee, LF PO = i THEN PR = 2 
% 


ines 





Ue) BS, 


- HTAB 12 
. FLASH 


Fro “INVALID +T VALUE” 


: NORMAL 
- FOR I = 1 70 1500 
: NEXT 


GOTO 10000 


GOSUB 20100 


> VTAB 5 
: HTAB 13 


PRINT "TURN PRINTER ON" 
PRINT 


: HTAB 6 


PRINT "(NOT REQUIRED WITH SILENTYPE)" 


: VPAB 10 
- HTAB 15 


PRINT "ALIGN PAPER" 


: VPAB 14 
- HTAB 7 


» NEXT 


PRINT "PRINTOUT DEFAULTS TO SLOT 1" 
VTAB 23 
FOR I = 1 70 39 

PRINT 1"; 


>: VTAB 24 
ee AS 7 


Pail “PRESS RETURN TO CONTINUE "; 
GET GS 


: HTAB 7 


Boe CO PRINT ROUTINE IN PROCESS>" 


: VDAB 11 
: HEAB 2 


PRINT "<PRESS (3) TO ESCAPE PRINTING ROUTINE>" 


; GOSUB 10600 


IF PR = 2 OR PR = 5 THEN HOME 
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> HTAB 4 


PRINT "PRESENT TIME (1) PERIODS ARE: "1 


VTAB 6 


: HTAB 4 


PRINT "EXTENDED RANGE (+2) INPUT IS: "TA 


VTAB 9 
INVERSE 


: UPAR { 


PRINT "(+T CANNOT BE LESS THAN OR EQUAL TO 1)" 


: NORMAL 


eve | 2 


> HTAB 4 


PRINT "(1) CONTINUE FLOWS TO "TA 
PRINT 


: HTAB 4 


PRINT "(2) CONTINUE FLOW, PRINT ONLY "TA 
tan 


: HTAB 4 


PRINT "(3) +f CHANGE ROUTINE" 
PRINT 


: HTAB 4 


PRINT "(4) RETURN TO MENU" 


GOSUB 20200 
Memos | OR G > 4 GOTO 10210 


if G = 2 THEN SP = TA 


Pie = 9c OR PR = 3 THEN VIAB i1 


mea AB i 4 
fe? LAOH 


PRINT "PROGRAM WORKING" : 


» NORMAL 


Bok» = O T0 ff 


ely 





iO 1 2 if Tl = — 1 THEN Ri = O 
os Goro 10320 


O51 6 Bok = |) TO K 
er) = 0 
MOR ce= 1° TO K 
mom) = NCJ) * PiJ,1) + XI) 
NEXT 
NEXT 


m1 wen 1 = 1 TO Kk 


‘| C5 4@ tee . JOOOO00T 
: mon Le= "1 FO K 
D=D + N(T) 
NEXT 
tie = T1 + 1 
Peri = —f2 GOTO 10324 


i@e52 VTAB 24 
: Bee AS | 
ERI? "PRESS (C) TO CONTINUE, (EB) TO ESCAPE "; 
GET G$ 
IF GS = "EB" GOTO 3000 


10556 A = PEEK { = 16384) 
: TF X = 197 GOTO 5000 


10338 NEXT 3S 
or = 0 


litre) 





aA | 


GOSUB 20100 
VTAB 5 


Poe TRANSITIONAL FLOWS" 


"5" GOTO 10408 


Fee TIME"; 


: HTAB 8 


Poon “CLASS” ; 


: HPAB 15 


: HTAB 25 


Barn? “STOCKS—N"; 
Beant “RECRUITMENT” 


Boo As | 


ao. = | 
: NEXT 


19) BS, 
Poi, S's 


ee 


: RETURN 


Peewee TIME; 


: HPAB 8 


: HTAB 15 
: HTAB 32 


Peet “CLASS; 
Pee “STOCKS ( PERCENT)"; 


mao RECRUIT" 


GOTO 


eae 


wrAB 10 
CALL - 958 


Itg 





2 sya) 


ele Oe aulag a 


- FOR J = 1 70 XK 


. NEXT 


HTAB 10 

PRINT J; 

HTAB 16 

JJ =N(J) + .5 
PRINT # INT (JJ); 

HTAB 28 

PRINT #R(J) 


> VTAB (11 + XK) 
walt AB: S 
meee '§ POTAL" s 
fora 16 
> PRINT #(D + .5); 
mare 10512 
VTAB 10 
GALL —- 958 
> HPAB 2 
coat, T1; 
meron = 1 TOK 
eeAB 10 
PRINT J; 
os 16 
JJ = N(J) + .5 
Ear + INT (Jd); 
HTAB 28 


» NEXT 


pia FR] * Rd) 
Beet Ff PNT (RX + .5) 


VTAB (11 + X) 


wea ras 8 


PRINT "TOTAL"; 


sw HrAB 16 


PRINT #(D + .5); 


HTAB 28 


PRINT #(R1 + .5) 


VTAB (13 + X) 
HTAB 1 


- FOR I = 1 70 36 


> NEXT 


Prom v= 


; RETURN 


Meer = > 2 GOTO 10520 
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eis VTAB 10 


CALL - 958 
: BEAB 2 
> PROT T1; 
oor. = 1) LO K 
: MOAB 10 
PRINT J; 
MoAB Wa 


JJ = N(J) + .5 
PRINT "FOR"6,0;4 INT eels. 3)> 
ie = 1 OO * Wd) J D 
PRINT "FOR"3,O;"("# INT (N1 + .5)")"; 
Hien 22 
: PROT MOR! 6 /OreR (J ) 
>: NEXT 
mpcOLo 10528 
moseO VITAB 10 
>: CALL = 958 
weneAG 2 
meenuNnr TT: 
meeoke) = 1 TO K 
: HTAB 10 
PRINT J; 
mEAB 14 
tee = Nid) + .5 
PRINT "FOR"6,0;# INT J): eet 4): 
N1 = 100 * N(J) / D 
PRINT Os O' # INT (N1 Ju 55) 
BAB 3c 
RX = R1 * R(J) 
: ERUNT “SORS,0:7 INT (RX + .5) 
2 Op. Gh 
: GOTO 10528 


10524 VTAB 10 

; CALL = 958 

: HTAB 2 

: PRINT 11; 

: FOR J = 170 X 

:  HTAB 10 
PRINT J; 
HTAB 14 
en a5 
PRINT "FOR"6,0;4 INT (Jd); SPC( 3); 
N1 = 100 * Nlg) / M(g) 
PRINT "FOR"3,0;"("4 INT (N1 + .5)")"; 
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HTAB 32 
PRINT "FOR"6,0;4R(J) 
© NEXT 
: GOTO 10528 
10526 VTAB 10 
: CALL -— 958 
: HTAB 2 
: PRINT 171; 
>: FOR J = 1 T0 K 
HTAB 10 
PRINT J; 
HTAB 14 
y= Nos) + .5 
PRINT "FOR"6,0;4# INT (JJ); SPC( 3); 
1 = 100 * Nig) / M(a) 
PRINT "FOR"3,O;"("# INT (N1 + .5)")"; 
HTAB 32 
RX = R1 * R(J) 
: PRINT "FOR"6,0;#7% INT (RX + .5) 
>; NEXT 
10528 VTPAB (11 + K) 
* HTAB & 
>: PRINT "TOTAL"; 
> HTAB 14 
>: N1 = 100 * D / DO 
ae + .5); SPC( 3);"FOR"3,0;"("# INT (N1 + .5 
tt ft « 
: HTAB 32 
> PRINT "FOR"6,0;#(R1 + .5) 
10530 VEAB (13 + K) 
meaAS 4 
>: FOR I = 1 T0 39 
: PRINT "—"; 
Ne 
RETURN 


10602 HTAB 10 
>: PRINT "DATA FILE NAME...:"; 
POKE 36,40 
PRINT "( "NFS" )" 
PRINT 
PRINT 


2 





Beas 10 

PRINT "TRANSITIONAL FLOWS" 
PRENT 

PRIN? 


eae 10 


Pee Me 5 


: HTAB 20 


Been “CUASS" 


: HPAB 30 


Beene "STOCKS (N)"; 
POKE 36,46 
raly? “RECRUITMaNT" 


HTAB 10 


meow | TO 48 


: NEXT 


PRINT "="; 


PRINT 
GOTO 10616 


HTAB 10 


Peet UO RIME 


: HTAB 20 


Poe 'OLASS" ; 


: HTAB 30 


poe? "STOCKS (N)"; 
POKE 36,43 

Ee PERCENT)"; 
BOK, 56, 5 

Pate  ReSCRULTMENT" 


HTAB 10 


meek ££ = 1 TO 59 


: NEXT 


PRINT "="; 
PRINT 


itieZoe= "2" GOTO 10720 


meer = > 2 GOTO 10708 


i23 





-” ELE Ie) te) 
PReNT TT: 
ae Oi) = { TOK 
: HAS 25 
PRINT J; 
HTAB 31 
d= Nid) + .5 
PRINT # INT (JJ); 
POKE 36,49 
: PRINT AR(J) 
» NEAT 
Jeg Ea 
mGOro 10710 
me7oSs HTAB 10 
wernt Ll 1 5 
meeeoned. = | TO K 
: HeAB 23 
je gUlE Nh ies 
BAB ot 
JJ = N(J) + .5 
PRINT # INT (JJ); 
POKE 36,49 


RX = R1 * R(J) 
: PRINT # INT (RX + .5) 
NEXT 
Se eRING 


moro HTAB 20 
aeons) "TOTAL": 
eer AB 31 
: PRINT A(D + .5); 
POKE 36,49 
PRINT #(R1 + .5) 
movie HTAB 10 
meee: = | TO 438 
: PRINT "—"5 
> NEXT 
>; PRINT 
10714 Vo = VC + (XK + 3) 
memes < 54 GOTO 10720 
fego FOR IT = 1 TO (66 = VC) 
: PRINT 
SNOT 


10718 GOSUB 10600 
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PR# O 
GOTO 10336 


10722 HTAB 10 
PRINT TI; 

: FOR J =1M70 K 

: HTAB 22 
PRINT J; 
HTAB 31 
JJ =N(J) + .5 
PRINT "FOR"6,0:4 INT (JJ); 
POKES 36,45 
Ni = 100%* N(J) / D 


PRINT "FOR"3,O;"("# INT (N1 + .5)")"; 


POKE 36,59 
: PRINT "FOR"6,0;#R(J) 
> NEXT 
3 UL y 
meaore 10732 
movea HTAB 10 
Pec? 1]; 
meek, J = | TO K 
BUS) 2a 
SEN E ae 
Boe AB 3S 
JJ = N(J) + .5 
Pei rOn'o,0°7 INT (JJ); 
POKE 36,45 
Ni = 100* N(J) / D 
PoetieirnoR's,O."( "2 INT (N1 + . 
POKE 36,59 
roe © Ri) ) 
: PRINT "FOR"6,0;7 INT (RX + .5) 
NXT 
wom NT 
= conto: 10732 


10728 HTAB 10 

meoniNt Tl 3 

> FOR J = 1 TO K 

: ee ee 
Bene J 3 
Pea. 5 | 
Jl =a 0 aS 
Po ileerOR' oS, 057 INT (Jd); 


5 





BROKE 56),.45 
N1 = 100 * N(J) / M(J) 
Peele mon sO." ("2 INT (ie 5) ts 
POKE 36,59 
: PRINT "BOR"6,0:74R(J) 
s NEXT 
: PRINT 
mecOL® 10732 
fev oO HTAB 10 
meen eNtT TT: 
mone) = | TO K 
: See AB 22 
eRe hee) 
HYAB 31 
aoe Nig) + .5 
PRINT "ROR"6,O77 INT (JJ); 
EOKE 360,45 
N1 = 100 * N(J) / M(J) 
PRINT "FOR"3,O;"("# INT (N1 + .5)")"; 
POKER 50,59 
RX = R1 * R(J) 
: Prout “SOR"6G O:7 INT (RX + .5) 
Se NEAT 
-) PRINT 
mownoe HTAB 20 
ween? "TOTAL" ; 
Pear AS 41 
meen, "“FOR"6,Os#(D + .5): 
mit = 100 * D / DO 
meeOKs 36,45 
Poon ROR" Ss O-'( 2 INT (N1 + fo) POR" 6.0: 
POKE 36,59 
PRINT #(R1 + .5) 
meee HTAB 10 
meen. = 1 TO 58 
: BENT sta" 
2 Upp aak 
PeCR INT 
mOj56o VC = VC + (K + 3) 
meee vO < 54 GOTO 10742 
ieee FOR £ = 1 TO (66 — YC) 
: Rey 
2 ODD 


10740 GOSUB 10600 
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I 


PR# O 
GOTO 10336 


jeg ee 


a= A + C 


A=A* C 


- FOR J 
: NEXT 


= 1TOK 


Ri = R1 + RM(J) 


Pe? 





20000 Pi = Pi * 10000 
weoeP = INT CP ) 
>: PAD = Pi — PBD 
mc ouND = NIT (PAD + .5) 
; PBD = PBD + ROUND 


20006 PBDS = STRS$ (PBD) 
: LS = LEN (PBD$) 


20008 IF LS = 4 GOTO 20018 


Bere PRINT " .";ZEROS; PBDS 
meee 20020 

eeoi4 PRINT "1.0000" 
melo 20020 


2eero PRINT * .QOO0O0" 
meaotQ 20020 

Beene PRINT " .";PBDS 
moet 20020 


20050 Pi = Pi * 10000 
> PBD = INT (P1) 
: = P{ — PBD 
; ROUND = INT (PAD + .5) 
: = PBD + ROUND 


20056 PBDS = STRS (PBD) 
; LS = LEN (PBD$) 


20058 IF LS = 4 GOTO 20068 
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"0000" 


BRE" 2. ZEROS; PBDS; 


seGOTO 20070 


peer = | 20000"; 


maoLlo 20070 


Peer " 2.0000"; 
GOTO 20070 


Beers 2s PBDS; 


mero: 20070 


: HOME 


INVERSE 
VTAB 1 


: HTAB 1 


PRINT " * MAN-MOD TRANSITION MATRIX PROGRAM * " 


: NORMAL 
: RETURN 


VTAB 23 
PAD | 


: FOR I = 1 70 39 


» NEXT 


Pum by Oe 
PRINT 


mena. 12 


Pat “PRESS SELECTION "; 
GET GS 


: G@ = VAL (G$) 
: RETURN 


MAD 22 


MeHlAB 2 


PRINT "(PRESS (A) TO ACCEPT, (R) TO REENTER)" 
PRINT 


: VTAB 24 
moar Ap 12 


Proy@ "((B) TO ESCAPE) "; 
GET GS 


> RETURN 
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20400 VTAB 24 
HAs 1 
PRINT "(PRESS (A) TO ACCEPT, (R) TO REENTER)"; 
: GET G$ 
: RETURN 


: FLASH 

[een "ROW PROBABILITIES SUM GREATER THAN 1" 

>: NORMAL 

weve. | 2 

moa 3S 

¢ PRINT "VERIFY INPUTS AND REENTER" 
20502 VTAB 10 

2 UE By 

PRINT He) LOeCOMrLINUE AND RENTER INPUT" 

¢: PRINT 

eden > 

: PRINT "(E) ESCAPE INPUT ROUTINE TO MENU" 
20504 VTAB 16 

: HTAB 3 

: PRINT "(WITH EeCArkE (B) ALL PREVIOUS INPUTS" 

senna 3 

: PRINT "ARE ACCEPTED, REMAINING INPUTS MAY BE" 

: HTAB 3 

: PRINT "ENTERED THROUGH THE CHANGE ROUTINE)" 
20506 VTAB 24 

5 oS 

mene "PRESS (C) TO CONTINUE, (EB) T0 ESCAPE US 

: GET G$ 


pease Ir GS = "C" OR GS = "E" GOTO 20512 


: HEAB 5 
: FOR I= 1 70 25 
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meen =" s 


>: NEXT 


pany 


: HPAB 5 
ween lL = | 


: NEXT 


: HTAB 35 


HTAB 5 


HTAB 5 


PRINT "MAN-MOD DATA FILE LISTING" 
Oe 25 
ee rests 


Pan T 
Pa 
PRINT 


Pheer DATA FILE NAME IS...:"; 
PRINT NFS 

PRINT 

PRINT 


* HPAB 5 


PRINT "NUMBER (K) CLASSES..:"; 


: HPAB 35 


PRINT " ( myn ) tt 
PRINT 
PRINT 


HTAB 5 


Pai "TIME (1) PERIODS....:"; 


> HTAB 35 


PRINT " ( nmr ) tt 
Pry 2 
een E 


> HDAB 5 


Pee PERCENTAGES OPTION. .:"; 


: HTAB 35 


: HTAB 35 


ene 5 
: HTAB 35 


HTAB 5 


GOSUB 20860 
PRINT 
PRINT 


Pe OPTION SELECTED IS..:"; 
GOSUB 20800 

PRINT 

relate 


PRINT "OPTION INPUTS....... ae 


meaooub 20820 
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PRINT 


: HTAB 35 


HTAB 5 


GOSUB 20840 
PRINT 
lai (ah 


PRINT “INITIAL STOCK (N) VECTOR AND RECRUITMENT (R) 
VOGUE ONE 

PRaeT 

PRINT 


HTAB 16 


HOR if = 1 TOK 


» NEXT 


Pel cea) }s"COL “"s1; SPC( 1); 


PRINT 

PR. 

HTAB 5 

Pe eevescmon N:'s 


- HEAB 16 
we 1 TO K 


» NEXT 


PRINT AM(I); SPC( 1); 


en lan T 
BN? 


BPA B 5 


Peet “RECRUIT R:"s 


HTAB 16 


meen tf =i TO K 


; NEAT 


P1 = R(L) 
GOSUB 20050 
PRINT SPC( 1); 


ooh iil 
PRINT 
Eee T 
GOrO 20624 


HTAB 16 


feeonet = | TO K 


> NEXT 


POD eek js eoPC( 1); 


ex Gan T 
PRINT 


Ih 392 





Hae 5 


PRINT "TRANSITIONAL FLOW MATRIX (P)" 
PRINT 


PRINT 
nA 16 
One: = | £O K 
: Prime cre ly 'COR “-ls SPC( 1); 
>: NEXT 
: PRINT 
ete JEN yt 
POnee = | TO K 
Hab. 5 
PRINT "ROW ("I")"; 
noAB. 16 
Benes = | TO K 
elec) ) 


: NEXT 


GOSUB 20050 
Pree See 41); 
NEXT 
elgt JEQ Tt 


PRINT 


acco oll 
PRINT 


VA 6 


-—HtAB 7 


PRINT "CHOOSE DESIRED DATA LISTING" 


VTAB 11 


weal AB 10 


PRINT "(1) SCREEN DISPLAY" 


eeviAs 13 
meacaAB 10 


PReyee 2) PAPER COPY" 


is 





: VTAB 15 
: HTAB 10 
: PRINT "(3) RETURN TO 


20708 GOSUB 20200 
20710 RETURN 
20800 IF OP = 1 THEN PRIN® 
20802 IF OP = 2 THEN PRINT 
20804 IF OP = 3 THEN PRINT 
20806 IF OP = 4 THEN PRINT 
20808 IF OP = 5 THEN PRINT 
20810 RETURN 
20820 IF OP = 1 THEN PRINT 
20822 IF OP = 2 OR OF : 
20824 IF OP = 4 OR OP = 
NUMBER" 
20826 RETURN 
20840 IF OP = 1 THEN PRINT 
20842 IF OP = 2 THEN PRINT 
20844 IF OP = 3 OR OP = 5 THEN PRINT 
R ("om)" 
20846 IF OP = 4 THEN PRINT 
20848 RETURN 
20860 IF 28 = "1" THE 
20862 IF Z$ = "2" THE 
7m" 
20864 IF 28 = "3" THE 
SIZE" 
20866 RETURN 


5 PEN PRN T 


MENU" 


"FIXED RECRUIT VECTOR" 

VAD DMG (RECRUIT SEZE)™ 
UMULTIPLICATIVE (RECRUIT SIZE)" 
"ADDITIVE (SYSTEM SIZE)" 
"MULTIPLICATIVE (SYSTEM SIZE)" 


"NOT APPLICABLE" 


3 THEN PRINT "NUMBER ENTERING ("3A 


"CALCULATES TORAL NET 


"ALL SNTER CLASS i" 


UNUM TIP LACATIVEG FAGHO 


THEN PRINT "GRADE SIZE AS #@ OF TOTAL SIZ 
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20900 FOR I = 1 TO K 


W(I) = 7 
BOnee = 1) LO K 
W(I) = W(I) - P(I,J) 
NEXT 
> NEXT 
ere aun 


Lee: 





APPENDIX D 


MAN-MOD/LINKER MODULE 
PROGRAM LISTING 


The MAN-MOD/LINKER module is a public domain machine 
language routine. It allows module chaining. The program 


listing was done by a memory listing routine. 


LBs 








] 
— 
4 \ Oa 


Ne eOIIET 





rya5 i) Vat 
anita? 
v2 eoes aw 


roy, 





k3090 .30E0 


3090- 
3098- 
30A0- 
30A8- 
30B80- 
3088- 
30C0- 
30C8- 
30D00- 
30D8- 
SOEO- 


34 
20 
24 
45 
22 
48 
45 
49 
Ze 
30 
AZ 


148 





APPENDIX E 


MAN~MOD/FORMATTER MODULE 
PROGRAM LISTING 


The MAN-MOD/FORMATTER module is a print using routine 
allowing for real and integer numbers to be formatted. It 
is a modified version of PRINT [1I, a Computer Systems De- 
Sign copyrighted program. Permission has been obtained to 
utilize the modified routine for MAN-MOD; any other use of 
the routine is prohibited. The program listing was done by 


a memory listing routne. 
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XSAT?. 


PAD 7 —- 
SA0S- 
SA 1C—- 
PA1LS— 
PAZO— 
PALS— 
PA30- 
PA3S— 
PASO—- 
PASS— 
PASO- 
SAS8— 
PAS60- 
9AS8- 
SA70- 
PA78— 
9ASO—- 
PABS— 
PAID— 
PAIPS— 
PAAD— 
PAAS — 
%ABO- 
PABS— 
PACO- 
SACS- 
PADO- 
PADS— 
PAED— 
PAES— 
PAF O— 
SAF S— 
9B00- 
9BO0s- 
9B 10- 
9Bis- 
9B20- 
9B28—- 
9B30- 
9B38- 
9B40- 
9B438- 
9BS50- 
[Se a6- 
9Bé0- 
9Bé8- 
9B/7O- 
?B78- 


9B/?F 


20 
8D 
20 
D4 
Ag 
60 
20 
A2 
60 
OF 
8D 
72 
38 
oA 
oA 
A? 
00 
oA 
E9 
85 
53 
9B 
ce 
34 
FO 
DD 
AS 
FF 
20 
FO 
Eé 
28 
05 
00 
F2 
9E 
20 
20 
FO 
FO 
20 
F7 
DE 
AE 
oC 
30 
oC 
EA 
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X9BS80 .9CEC 


7B80- 
9B88- 
9B90- 
9BI98- 
?BA0— 
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